ich möchte aus Excel einen Ordner und zwei Unterordner anlegen.
im Tabellenblatt "Test, T4" steht der zu erstellende Ordner
im Tabellenblatt "Test1, E1" steht der Pfad
im Tabellenblatt "Firmen, T6 und T7" stehen die Unterordner.
Aber leider geht es nicht!
Kann mir jemand helfen?
Sub Ordner_erstellen()
Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
Zeilen = Sheets("Test").Range("T4").End(xlUp).Row
Pfad = Sheets("Test1").Range("E1")
For i = 1 To Zeilen
FullPfad = Pfad & Cells(i, 1) & "\" & Sheets("Firmen").Range("t6") & "\"
FullPfad = Pfad & Cells(i, 1) & "\" & Sheets("Firmen").Range("t7") & "\"
Call MakeSureDirectoryPathExists(FullPfad)
Next i
End Sub
Vielen Dank.