01. 06. 2008, 11:00 # 1 DeBabba VBA - Verzeichnis erstellen Hallo zusammen, ich erstelle via Makro ein Verzeichnis mit verzeichnis = TxtBoxI1 If Dir(verzeichnis, vbDirectory) = "" Then MkDir (verzeichnis) Das klappt ja soweit ganz gut wenn ich z. B c:\Gagga\ erstellen möchte NUR Wenn Gagga nicht existiert und ich C:\Gagga\Hallo\ erstellen möchte kommt die Fehlermeldung 76 (Pfad nicht gefunden). Hat jemand ne Idee wie ich die Verzeichnisse rekursiv, also Gagga und Hallo erstellen kann?? Vba verzeichnis erstellen calendar. Gruß 01. 2008, 11:35 # 2 MOF Guru Registrierung: 28. 02. 2001 Moin, deBabba, entweder API-Funktionen einsetzen oder aber Verzeichnisbaum anlegen verwenden: Code: Option Explicit Private Declare Function MakeSureDirectoryPathExists _ Lib "" _ (ByVal lpPath As String) As Long Sub make_sure() MakeSureDirectoryPathExists "C:\test\test1\test2\" End Sub Zusatz: Anlegen über FSO Sub CheckOrdner() ' y/ypsilon, Herber-Archiv, 31. 03. 2004 'prüfen ob der Ordner im Homeverzeichniss '\Eigene Dateien\ Finanzen eines Users vorhanden ist, 'wenn nicht erstellen Dim Ord As String Dim UN As String Dim OrdnerNeu As String Dim fso Set fso = CreateObject("leSystemObject") UN = Environ("USERNAME") Ord = "c:\Dokumente und Einstellungen\" & UN & "\Eigene Dateien" & "\Finanzen" '& "\" If lderexists(Ord) = True Then Exit Sub Else MkDir Ord MsgBox "Ordner " & Ord & " angelegt" End If __________________ cu jinx per 31.
2014, 18:18 # 6 Registrierung: 17. 05. 2008 das wurde vor kurzem hier besprochen. Ordner anlegen Declare Function MakeSureDirectoryPathExists Lib "" (ByVal DirPath As String) As Long Sub Test() Dim LoI As Long Dim StOrdner As String StOrdner = "D:\Test1\test2\" ' Schleife Ergänzung von Hajo für Unterordner ' Renè Mumpel ' keine Unterordner LoI = Len(StOrdner) - Len(bstitute(StOrdner, "\", "")) For LoI = 1 To LoI Rem Auf Pfad prüfen. Erstellen wenn nicht vorhanden MakeSureDirectoryPathExists ("D:\Test1\test2\") Next LoI Signatur in jedem Beitrag Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus. Betriebssystem: Windows 10 - 64 Bit, Office 2021 - 32 Bit. Fragen werden im Forum beantwortet, nicht per PN. Vba verzeichnis erstellen map. 17. 2014, 07:47 # 7 Registrierung: 21. 2010 Hallo Hajo, wenn schon 'MakeSureDirectoryPathExists'. dann so wie hier beschrieben: Bei Differenzierung von Win 32/64 bit dann so die API-Sub so definieren wie hier: Da braucht man keine For-Schleife. Bin auf die Begründung gespannt, was die eigentlich machen soll und warum definierst Du eine Variable für den zu erzeugenden Pfad, wenn diese Variable dann nicht eingesetzt wird.
Geschrieben am: 21. 2020 17:15:09 Neben diesem Forum gibt es ja auch noch Google/Wikipedia etc. und dort findest du eine Erklärung der UNC Notation. von: Anton Geschrieben am: 21. 2020 18:44:58 probier's hiermit: Code in Zwischenablage: Option Explicit Sub sharepoint_neuer_ordner() Dim objNetzwerk As Object Dim strPath As String, sNeuerOrdner As String Set objNetzwerk = CreateObject("twork") strPath = " Dokumente/01_Test/Ordner_Anlegen" 'anpassen sNeuerOrdner = "test" 'anpassen oder If Not CreateObject("leSystemObject"). DriveExists("B") Then On Error Resume Next 'sharepoint als Laufwerk "B:" verbinden NetworkDrive "B:", strPath If <> 0 Then MsgBox scription, vbCritical, "Fehler bei Verbindung! VBA Ordner erstellen. " Else 'Ordner erstellen If Dir("B:\" & sNeuerOrdner, vbDirectory) = "" Then MkDir "B:\" & sNeuerOrdner 'sharepoint trennen moveNetworkDrive "B:" End If Set objNetzwerk = Nothing End Sub mfg Anton Geschrieben am: 26. 2020 08:00:17 Hallo Anton Vielen Dank für deinen Code, leider erhalte ich die Fehlermeldung, dass ich nicht authentifiziert bin.
", vbYesNo + vbQuestion) = vbYes Then Call MsgBox("TMA-Dokumentablage erfolgreich gestellt! ", vkOKOnly + vbInformation) nCommand acCmdSaveRecord cordSource = cordSource strMsg = "Ein weiteres Dossier erstellen? " If MsgBox(strMsg, vbYesNo + vbQuestion) = vbYes Then oRecord,, acNewRec acForm, Es wird nun der Dossierordner im Verzeichnis "c:\vdos\" erstellt mit der Konvention: visumNachname. Vorname-DossierID. Ich möchte aber das Visum als Ordner erstellen lassen nach dem Muster: c:\vdos\%Visum%\Nachname. Vorname-DossierID. Tönt einfach aber ich scheitere kläglich. Wäre sehr dankbar für einen kleinen Input. Vielen Dank und einen schönen Tag - quen Geändert von quen_to (16. 2014 um 14:46 Uhr). Ordner erstellen falls nicht vorhanden. 16. 2014, 18:12 # 5 MOF Meister Registrierung: 28. 11. 2011 Ort: Ungefähr 53, 2° Nord und 10, 4° Ost Hallo quen_to, wenn Du bei Deinen VBA-Methoden bleiben willst, musst Du jeden Unterpfad einzeln prüfen und anlegen. Zuerst c:\vdos dann c:\vdos\%Visum% und dann erst c:\vdos\%Visum%\Nachname. Vorname-DossierID Hang loose, haklesoft 16.
Allerdings ist es möglich ein Sharepoint-Verzeichnis im Explorer zu mappen. Ich mach das z. B. ïndem ich ein OneDrive Verzeichnis mit Verweis auf das Sharepoint Verzeichnis mappe. Mehr Infos auch hier. Anschliessend kann die UNC-Notation des Verzeichnis mit einem zusätzlich zu erstellenden Unterverzeichnis verkettet werden und mit MkDir angewendet werden. Gruess Hansueli Geschrieben am: 21. Vba verzeichnis erstellen 2. 2020 09:14:52 Hallo Hansueli Soweit ich das mit meinem Wissen beurteilen kann, ist das Sharepoint-Verzeichnis im Explorer gemappt. Ich erreiche es jedenfalls über den Explorer, ohne Sharepoint zu verwenden. Das Problem ist, dass der Pfad so aussieht: C:\Users\chname\Firma\Logistik - Dokumente/01_Test/Ordner_Anlegen Sprich, er ist "personalisiert", da immer der Name des Users im Pfad vorkommt. Diesen Teil deiner Erklärung habe ich nicht verstanden: "Anschliessend kann die UNC-Notation des Verzeichnis mit einem zusätzlich zu erstellenden Unterverzeichnis verkettet werden und mit MkDir angewendet werden. "
Vorgabedaten erstellen Neue Klasse erstellen Dateiliste mit DOS- und Windowsnamen erstellen Zelle auswählen, Link erstellen und Format übernehmen Symbolleiste mit ComboBox erstellen Kontextmenü mit Buchungsvorgaben erstellen Diagramm erstellen, in UserForm anzeigen und drucken Menüpunkt bei Aktivieren einer Mappe erstellen Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen Einfügen eines Menüpunktes zum Erstellen eines Kommentars.
If Right(strPfad, 1) <> "\" Then strPfad = strPfad & "\" strPfadNeu = strPfad & heets("Tabelle2")(2, 1) 'Anpassen!!! If Right(strPfadNeu, 1) <> "\" Then strPfadNeu = strPfadNeu & "\" 'Wichtig immer vor MakePath If MakePath(strPfadNeu) = 0 Then 'Das kommt eigentlich nur vor wenn Laufwerk oder Pfad unzulssig sind oder keine Zugriffsrechte bestehen MsgBox strPfadNeu, vbInformation, "Pfad konnte nicht angelegt werden. " End If End Sub Gru Verfasst am: 15. Dez 2010, 09:40 Rufname: hallo slowboarder und eller dankeschn fr eure schnelle hilfe, werde ich gleich mal ausprobieren und feedback geben... gre Verfasst am: 15. Dez 2010, 12:37 Rufname: hallo... also funktionieren beide lsungen wunderbar... sascha Jonny80 Einsteiger Verfasst am: 09. Mrz 2013, 10:04 Rufname: Version: Office 2003 Hallo zusammen, der Code hat mir schon super weitergeholfen. Wie kann ich erreichen das er mir jetzt noch eine Meldung ausspuckt, dass er erfolgreich einen neuen Ordner angelegt hat (und nur dann)? Private Declare Function MakePath Lib "" _ Private Sub Worksheet_Change(ByVal Target As) strPfad = Worksheets("Verwaltung")("B6") If dress = "$B$6" Then If MakePath(strPfad) = 0 Then MsgBox "Der Pfad " & strPfad & " konnte nicht angelegt werden.
Weihnachtsgeschichten gibt es mittlerweile so viele wie Kugeln an den Weihnachtsbaum passen — und noch mehr! Oft müssen diese aber nicht umbedingt nur für Kinder sein. Es gibt auch Weihnachtsgeschichten, die zum Nachdenken anregen sollen. Hier finden Sie eine eher unbekannte Weihnachtsgeschichte — zum Nachdenken — und für die ganze Familie. Weihnachtsgeschichten zum Nachdenken: Sie suchen den Stern (Teil 1: Inmitten des Trubels) Sterne die hell am Himmel leuchten (#01) Es ist der Morgen an Weihnachten. Die Straßen sind gefüllt von den letzten Einkäufern, die Kassen glühen, die Stimmen wirren, Autos hupen. An den leuchtenden Weihnachtsschmuck in den Schaufenstern und Straßen hat sich jeder gewöhnt, sodass sein Glanz aus den Augen der hetzenden, zusammengesackten Menschen schon lange gewichen ist. Geschichten zum Nachdenken - Traurige Traurigkeit - Wattpad. Inmitten diesem Trubels findet sich Dominique. Dominique hat einen mobilen Laden, einen ganz besonderen: Dominique verkauft Sterne. Doch das Geschäft läuft sehr schlecht. In der Heimat war es nicht sicher genug und hier scheint niemand Interesse an Dominiques Sternen zu haben.
Gott wurde klein und zerbrechlich, wie ein Baby, um bei seinen Menschen zu sein. Geschichten können Menschen so viele Impulse geben und sie zum Nachdenken anregen. Das versuchen auch die Werke auf dieser Seite. Ob sie Euch erreichen steht in den Sternen. Aber schon allein die Tatsache, dass Ihr diesen Text gerade lest ist aller Ehren wert. Tiefgang und Besinnung sind wesentliche Aspekte der nachfolgenden Geschichten. Lasst sie auf Euch wirken. Laute und stille Fragen werden vielleicht beim Lesen aufkommen. Und das ist auch gut so - weil gewollt! Der Gärtner und die Herrschaft Eine Meile von der Hauptstadt entfernt stand ein altes Schloss mit dicken Mauern, Türmen und gezackten Giebeln. Hier wohnte, jedoch nur in der Sommerzeit, eine reiche, hochadelige Herrschaft. Traurige weihnachtsgeschichten zum nachdenken … bitte. Das Schloss war das Beste und Schönste, was sie hatten. Es stand wie neugegossen von außen da, und drinnen herrschten Gemütlichkeit und Bequemlichkeit. Das Wappen der Familie war über dem Tor in Stein eingehauen und wunderschöne Rosen schlangen sich darum.
Der Erinnerungsbaum Lesezeit: ca. 2 Minuten Ein Abend in der Vorweihnachtszeit. Oma und Opa Klein saßen sich gegenüber und genossen ihr köstliches Abendessen. Ihre Gesichter waren vom Kerzenlicht des Adventskranzes beleuchtet, der den Esstisch des alten Ehepaares zierte. Zwar konnte man den beiden ansehen, dass sie dem Zahn der Zeit nicht entfliehen konnten, doch trotzdem strahlten sie pure Lebensfreude aus. Der gesamte Raum war umgeben von Harmonie, Erinnerungen und Geschichten, die nur darauf warteten, endlich erzählt zu werden. Traurige weihnachtsgeschichten zum nachdenken – in deutsch. "Weißt du noch, Albert, der Tag unseres Kennenlernens? " "Gerda, das war heute vor 65 Jahren. Ich erinnere mich, als wäre es gestern gewesen. Wie könnte ich auch jemals den Tag vergessen, der mir den Sinn des Lebens zurückgegeben hat? " Man konnte deutlich behaupten, dass die Beiden die wahre Liebe gefunden hatten. "Heute vor 65 Jahren… Der tiefste Winter, die Straßen bedeckt von glitzerndem Schnee. Dieses wundervolle Bild kann man heutzutage nur noch auf Fotos betrachten.
Die traurige Tanne… In einem Mischwald, in dem Eichen, Birken und Fichten standen, wuchs eine kleine Tanne auf. Sie hatte es sehr schwer, denn sie wuchs zwischen starken Eichen auf, die ihr den größten Teil des Sonnenlichtes nahmen. So sehr sie sich auch streckte und reckte, sie bekam nur wenig Sonnenlicht ab. Das hatte zur Folge, dass die kleine Tanne krumm wuchs. Ihre Schwestern, die anderen Tannen, spotteten und lästerten über ihre Gestalt. Die kleine Tanne war tieftraurig. Die Tiere des Waldes wollten die kleine Tanne von ihrer tiefen Traurigkeit befreien, jedoch es gelang ihnen nicht. Die Tannenmeisen sangen der kleinen Tanne ihre Lieder. Die Schmetterlinge setzten sich auf ihre Nadeln, und streichelten die kleine Tanne zart. Die Hasenkinder machten ihre lustigen Spiele bei der kleinen Tanne, jedoch niemand konnte sie von ihrer Traurigkeit befreien. Traurige Lieder? (Musik, Lied, Song). Die Jahre und auch die Weihnachtsfeste vergingen, aber keiner wollte die traurige Tanne als Weihnachtsbaum haben. Ihre Schwestern, die in ihrer Nähe standen, wurden alle schon gefällt und auf dem Weihnachtsmarkt verkauft.
Obwohl wir im 21. Jahrhundert leben, ist Weihnachten im sogenannten Westen jedes Jahr auf's Neue präsent und allgegenwärtig. Das liegt mit Sicherheit am warmherzigen christlichen Charakter des Festes an sich. Aber gerade die Nächstenliebe, die bei vielen Menschen in der Weihnachtszeit deutlicher hervorkommt, stimmt nachdenklich. Traurige weihnachtsgeschichten zum nachdenken oder besser mitdenken. Warum bringt man seiner Familie, den Freunden und allen anderen Mitmenschen nicht das ganze Jahr über Liebe und Rücksicht entgegen? Gerade an Weihnachten beginnen viele Erwachsene erst an die zu denken, die es nicht so gut haben, wie man selbst. Ja, in dieser besinnlichen Zeit ist man einander einfach näher als sonst. Die Hektik des Alltags und die Anforderungen des Lebens rücken für einen Moment ein Stück weit nach hinten. Es entsteht Ruhe und Raum zur Besinnung auf die wichtigen Dinge im Leben. Das macht diese Festlichkeit, derer sich viele erfreuen, aus. Nimmt man den christlichen Glauben ernst, so erfreut man sich zu Weihnachten über die Geburt Christi und der Tatsache, dass der "Retter" in die Welt geboren wurde.