---

Folgendes ich habe ein KNopf mit Makro zum Ordner erstellen und die Pfade soll der Benutzer einfach in die Excel Tabelle schreiben. Sieht dann quasi so aus

C1               
C:\Test  <----Stammpfad         
D1
\Unterordner3
D2              
\Unterordner4
.
.
.
.          

Wobei ich in C1 den Stampfad reinschreibe und die unterordner einfach hinzufüge:

A9 =C1&D1 also  C:\Test\Unterordner3
A10 =C1&D2 also C:\Test\Unterordner4
.
.
.
.
Das Makro hört aber nach dem erstellen des ersten Ordners mit Bug auf, da es bei der zweitenAbfrage den Ordner Test schon gibt! Wie kann ich dies umgehen

Sub Schaltfläche1_Klicken()
MkDir Range("A9")
MkDir Range("A10")
MkDir Range("A11")
.
.
.
.
.
End Sub

MFG Sepsis

------------------
The Man Who Knew Too Much

[Diese Nachricht wurde von Sepsis am 18. Apr. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sepsis,

auf die Schnelle: Guck' Dir mal den VBA-Befehl ChDir (und ChDrive) sowie Dir an...

------------------
DIN1055.de  |  Lastannahmen für Anwender

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe diesen Befehl gefunden, aber er sagt mir Objekt nicht vorhanden bei If Not Directory.Exists(A9) Then k.A.

Sub Schaltfläche1_Klicken()
If Not Directory.Exists(A9) Then
Directory.CreateDirectory (A9)
End If
End Sub

------------------
The Man Who Knew Too Much

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Habe die perfekte Funktion gefunden: Somit Thema erledigt

MakeSureDirectoryPathExists Function

Creates all the directories in the specified path, beginning with the root.

------------------
The Man Who Knew Too Much

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP