Hättest du da evtl. noch einen anderen Code auf lager? Der Code steht doch sinngemäß da. Du brauchst für jeden Ordner ein eigenes MakeDir, und MakeDir kann nur einen Ordner eine Ebene tiefer erstellen. Über die Win-API MakeSureDirectoryPathExists ist man da etwas schlagkräftiger. Zitat in Abhängigkeit des im Aktuellen Form ID Feld Einen gültigen Verzeichnispfad wirst Du wohl selber erstellen können... Mit freundlichem Glück Auf! Eberhard Hmmmm, verstehe ich nicht. Ich gehe richtig davon aus, dass im Code der "Ord" das Feld ist auf welches er sich bezieht ( aus meinem Textfeld/Form/db)? Sorry im Vorfeld für die "blöden" fragen:-), habe auch schon sehr viel versucht das zu lösen, hier und bei Google aber für mich ist das Zuviel was ich nicht begreife. Wenn ich eine Funktionierende Funktion habe macht es spaß diese zu verändern und dann geht es auch leichter das zu verstehen. VBA - Verzeichnis erstellen - MS-Office-Forum. Dank Euch habe ich schon mit den Makro`s die Freundschaft gekündigt:-) Hallo, wo genau liegt denn das Problem? Zitat Nun möchte ich aber in einem Abwasch (mit diesem Klick) nicht nur den Ordner anlegen, sondern gleich dazu noch weitere fünf Unterordner.
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?? Per VBA Ordner erstellen, Pfad und Ordnername aus Zellen Office-Loesung.de. 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.
VBA Ordner erstellen von gaertner1706 vom 22. 10. 2012 13:41:51 AW: VBA Ordner erstellen - von Frank H. am 22. 2012 14:46:21 AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 15:04:44 AW: VBA Ordner erstellen - von Rudi Maintaire am 22. 2012 16:35:14 AW: VBA Ordner erstellen - von gaertner1706 am 22. 2012 20:04:12 AW: VBA Ordner erstellen - von haw am 22. 2012 16:53:38 AW: VBA Ordner erstellen - von gaertner1706 am 22. Vba verzeichnis erstellen program. 2012 20:06:27 Betrifft: VBA Ordner erstellen von: gaertner1706 Geschrieben am: 22. 2012 13:41:51 Hallo, bin bis eben noch eine "Forenjungfrau" hier also meine erste Frage: Angenommen A1=1 und A2=Ordner Ich möchte dass z. B. Bei einem Rechtsklick in Zeile A folgender Ordner erstellt wird: C:\vbaOrdnerErstellen\Ordner\1 einzeln bekomme ich das hin (s. u. ) zusammen funktioniert es nicht. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim Ord As String 'Ord = "C:\vbaOrdnerErstellen\" & Cells(, 2) 'Ord = "C:\vbaOrdnerErstellen\" & + 120995 MkDir Ord If Dir(Ord, vbDirectory) <> "" Then MsgBox "Ordner """ & Ord & """ wurde angelegt" Else MsgBox "Ordner nicht vorhanden" End If End Sub Betrifft: AW: VBA Ordner erstellen von: Frank H. Geschrieben am: 22.
Unsere Kosmetikerinnen im Beauty Studio Bad Zwischenahn freuen sich auf deinen Besuch! Nach der Gesichtsbehandlung mit hochwertigen Produkten von BABOR, BIOEFFECT, RIVOLI oder SISLEY strahlt deine Haut dank pflegender Inhaltsstoffe und der sanften Hände der Mitarbeiterinnen in unserem Kosmetikstudio. Wimpern & Augenbrauen – Wimpernlifting, Wimpernlaminierung, Färbung etc. Augenbrauen zupfen ist eine Kunst, die unsere Kosmetikerinnen in Vollendung beherrschen. Egal ob geschwungen oder gerade, dünn oder breiter - wir bringen deine Augenbrauen in Form und bieten noch viel mehr. Gesichtsbehandlungen-fuer-frauen-und-maenner in Bad Zwischenahn. Augenbrauen färben, Wimpern färben, Wimpernlifting und Wimpernlaminierung gehören ebenfalls zu den gefragten Dienstleistungen in unserem Kosmetikstudio. Wenn die natürlichen Wimpern über Jahrzehnte mit Mascara betont wurden, können diese irgendwann ausfallen. Doch inzwischen gibt es erprobte Verfahren, mit denen du endlich wieder schöne dichte Wimpern bekommst. Modernstes SkinTech & Anti-Aging – Microdermabrasion, Microneedling, Ultraschall, Sauerstoffbehandlung Wir sind Spezialisten für Anti-Aging-Methoden und setzen in unserem Kosmetiksalon modernste SkinTech ein.
Wir bieten auch ein Online E-Shop für Premiumprodukte der Firmen Dr. Grandel und Phyris an. Gesichtsbehandlung bad zwischenahn video. Wir hoffen damit den Kunden einen Gefallen zu tun, die gerne von Zuhause aus Ihre gewohnten Spitzenprodukte per Internet bestellen. Falls Sie Anregungen haben wie wir noch besser werden können, scheuen Sie sich nicht uns dieses mit zu teilen. Gerne können Sie uns anrufen oder unser Kontaktformular nutzen. Ich würde mich sehr freuen wenn wir uns bald Marion Schroeder