2012 16:53:38 hier eine weitere Möglichkeit: Option Explicit Private Declare Function MakeSureDirectoryPathExists Lib "" ( _ ByVal lpPath As String) As Long ' Legt einen kompletten Verzeichnispfad an Private Sub PfadAnlegen() Dim Pfad As String Pfad = "C:\Daten\Excel\Sonstiges\" ' Verzeichnis erstellen MakeSureDirectoryPathExists Pfad Heinz Geschrieben am: 22. 2012 20:06:27 Hallo Heinz, danke für Deinen Lösungsansatz. Mir ist es leider nicht gelungen den Code auf mein Fallbeispiel umzuschreiben, aber der Rudi konnte mir helfen.
Ordner mit Unterordner erstellen VBA von Hopps vom 21. 04. 2018 11:44:38 AW: Ordner mit Unterordner erstellen VBA - von Sepp am 21. 2018 11:57:51 AW: Ordner mit Unterordner erstellen VBA - von Hopps am 21. 2018 12:26:52 Betrifft: Ordner mit Unterordner erstellen VBA von: Hopps Geschrieben am: 21. VBA - Verzeichnis erstellen - MS-Office-Forum. 2018 11:44:38 Hallo, hab im Internet ein Makro gefunden, was mir wie gewünscht Ordner erstellt, welche in Spalte A stehen. In B1 wird der Dateipfad eingetragen, wo die Datein hin sollen. Nun hätte ich gerne aber noch einen Unterordner in den erstellten Datein. Kann man dies gleich in einem Rutsch machen. Also in C1 z. B. den Unterordner eintragen und alle zu erstellenden Ordner hätten dann auch gleich den Unterordner? Das Makro: Sub Ordner_erstellen() Dim Zeilen As Long, Pfad As String, FullPfad As String Zeilen = Range("A65536")(xlUp) Pfad = Range("B1") For i = 1 To Zeilen FullPfad = Pfad & Cells(i, 1) MkDir FullPfad Next i End Sub Vielen Dank für Eure Hilfe Hopps Betrifft: AW: Ordner mit Unterordner erstellen VBA von: Sepp Geschrieben am: 21.
2008 um 11:40 Uhr). Grund: API-Codebeispiel eingefügt, FSO-Beispiel ergänzt (aus Suche im Archiv! ) 01. 2008, 20:05 # 3 Mon jinx, vielen Dank, das funzt einwandfrei DeBabba Klaus 16. 2014, 14:40 # 4 MOF User Registrierung: 27. 2013 Karma: UPDATE: Habe gerade gesehen, dass ich hier im Excel- anstelle vom Access-Forum gelandet bin. Aber der Code dürfte der gleiche sein, oder? Sorry.. Hallo zusammen Da habe ich ein altes Thema ausgegraben, für das ich nach einer kleinen Ergänzung suche. Ausgangslage: Beim Erstellen eines Dossiers wird automatisch ein Ordner in einem bestimmten Verzeichnis angelegt. Das funktioniert soweit exzellent. Hier der Code: Private Sub btTMAErstellen_Click() Dim strDossierPfad As String Dim strMsg As String Dim ErfasserID As String If IsNull(Me! ErfasserID) Or Me! ErfasserID = 0 Then Me! ErfasserID = Nz(DLookup("pbZeichen", "qryPBID"), 0) strDossierPfad = "c:\vdos\" & Me! Vba verzeichnis erstellen auto. ErfasserID & chname & ". " & Me. Vorname & "-" & A_ID If Dir(strDossierPfad, vbDirectory) <> "" Then Shell " """ & strDossierPfad & """", vbNormalFocus MkDir strDossierPfad If MsgBox("Den erstellen Ordner öffnen?
2012 14:46:21 Hallo Unbekannter! Auf deine Frage weiss ich keinen Rat. Aber auf die Regeln im Forum kann ich dich aufmerksam machen. Hier wird geduzt, so dass man gern nen Gruss mit seinem Namen am Ende aus Höflichkeit sendet, damit man dich auch anreden kann! L. G. Frank H.!!! Geschrieben am: 22. 2012 15:04:44 Hallo Frank H.! danke für den Hinweis, wie gesagt "Forenjungfrau" Gruß Kolja von: Rudi Maintaire Geschrieben am: 22. 2012 16:35:14 da ist 2x MkDir erforderlich. Sicherheitshalber sogar 3x. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen" If Dir(Ord, vbDirectory) = "" Then MkDir Ord Ord = Ord & "\" & [A2] Ord = Ord & "\" & [A1] Gruß Rudi Geschrieben am: 22. Ordner erstellen falls nicht vorhanden. 2012 20:04:12 Hallo Rudi, danke für die schnelle Antwort. Habe den Code auf mein Fallbeispiel angepasst und es funktioniert!!! Super und schönen Dank. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2) Ord = Ord & "\" & + 120995 von: haw Geschrieben am: 22.
Mit folgendem Code (in einem Standardmodul) kann gleichzeitig eine ganze Ordner/Unterordnerstruktur angelegt werden: Private Declare Function apiCreateFullPath Lib "" Alias MakeSureDirectoryPathExists" _ (ByVal lpPath As String) As Long Public Function fktCreateMultiPfad() as Long Dim strPfad As String strPfad = "c:\Verzeichnis1\Verzeichnis11\Verzeichnis111\Verzeichnis1111\" fktCreateMultiPfad = apiCreateFullPath(strPath) End Function Guten Morgen Franz. Ich habe die Doppelslash entfernt und in den Verweise nachgesehen.... kann damit aber nichts anfangen. Siehe Bild Hallo, habe zwischenzeitlich meinen vorherigen Post erweitert... Die Verweise scheinen ok zu sein... Ist in JEDEM(! ) Modul im Kopfbereich Option Explicit angegeben? Wenn nicht, dies nachholen und im VBA-Editor Debuggen/Kompilieren anstoßen. Ordner per VBA erstellen. Habe nachträglich die "Option Explicit" eingefügt und Debuggen/Kompilieren durchgeführt. Kein Erfolg. Schade, ich wollte da noch zusätzlich das ein vorhandener Ordner geöffnet bzw ein neuer Ordner erstellt wird in Abhängigkeit des im Aktuellen Form ID Feld.
Schmedtmann's Küche restaurant, Halle (Westfalen) Zur Wunschliste hinzufügen Zur Vergleichsliste hinzufügen Foto hinzufügen 6 Fotos Ihre Meinung hinzufügen Ratings von Schmedtmann's Küche Meinungen der Gäste von Schmedtmann's Küche Keine Bewertungen gefunden Zum Restaurant navigieren im Gerry Weber Landhotel Osnabrücker Str. 52, 33790 Halle (Westfalen), Nordrhein-Westfalen, Deutschland Adresse im Gerry Weber Landhotel Osnabrücker Str. 52, Halle (Westfalen), Nordrhein-Westfalen, Deutschland, 33790 Öffnungszeiten Montag Mo Geschlossen Dienstag Di 11:30-14:00 17:30-21:30 Mittwoch Mi Donnerstag Do Freitag Fri Samstag Sa 17:30-21:30 Sonntag So 17:30-20:30 Ihnen könnte auch gefallen Aktualisiert am: Mär 10, 2022
Sie werden einfache Vorbereitungsarbeiten in der Imbiss- Küche ausführen.
Gardinen Tepische Sofa Couch Schlafzimmer Küchen Tepisch Tisch St MB Lagerverkauf Lux Möbel bin 50% off Merseburgerstr 435 06132 Halle 10. 30 bis 18. 00 Uhr... 39 € Versand möglich Halle Dölau: Möblierte 2 Raumwohnung, sep. Küche, Duschbad (-;) # Objektbeschreibung Kurzübersicht: Unsere Objektnummer: M44204 Möblierte 2-Zimmer-Wohnung mit... 580 € 50 m² 2 Zimmer Möbel: Wohnzimmer und Küche Alle auf den Fotos zu sehenden Möbel sind zum selbst abholen angedacht. Gerne können Sie auch nur... 220 € VB DDR Multifunktionstisch Esstisch Wohnzimmer Stubentisch Küche Biete diese 4 Multifunktionstische zum Stückpreis von 60 Euro an. Restaurant halle deutsche küche. Funktional als Esstisch mit den... 60 € VB IKEA EKEDALEN Esszimmer Tisch Küche Wohnzimmer Tafel ausziehbar Der buchefarbige IKEA Tisch Modell EKEDALEN lässt sich sehr schnell und einfach umbauen durch die 2... 49 € Küchen-Möbel Wohnzimmer drei Schränke Vitrine super erhalten Biete diese top erhaltene dreiteilige Schrank-Einrichtung zum Verkauf. Ideal für Wohnzimmer oder... 149 € VB Möbel Sofa Couch Schlafzimmer Küchen Tepisch Tisch Stühle MB Lagerverkauf Lux Möbel bis 50% in Angebot Merseburgerstr 435 Halle 06132 Sofas ab 999 Euro 999 € Salz, Pfeffer, Streuer, Mühle, Küche, Wohnen, elegant, Gewürze Privatverkauf aus tierfreiem Nichtraucher-Haushalt.