ich möchte gerne per code aus einer Excel Tabelle Order aus A1 mit Inhalt eines Ordner mit dem Inhalt aus B1 und einen Ordner aus C1 erstellen.

Question

Hallo! ich möchte aus einer Tabelle Order mit Unterordner erstellen.
Aus Spalte A2 den Hautordner, in diesem soll dann ein Ordner mit dem Inhalt aus B2 und ein Ordner aus C2 sein.

Ich wäre sehr dankbar wenn mir jemand helfen könnte.

Vielen Dank!

Oliver

Answer 1

Hallo Oliver,

das folgende Makro gehört in ein Standard-Modul deiner Arbeitsmappe:

Sub Verzeichnis()
Dim strPfad As String
Dim strPfadneu As String
Dim lngSpalte As Long

'Variable für Hauptverzeichnis, in dem die neuen Verzeichnisse angelegt werden sollen
'anpassen!!!!
strPfad = "C:\Test\"

'Verzeichnis mit Wert aus A2 anlegen
strPfad = strPfad & ActiveSheet.Range("A2").Value
'Falls das Verzeichnis nicht existiert, dann anlegen
If Dir(strPfad, vbDirectory) = "" Then MkDir (strPfad)
'nun die jeweiligen Unterverzeichnisse anlegen, Namen aus Zellen B2 und C2
For lngSpalte = 2 To 3
strPfadneu = strPfad & "\" & ActiveSheet.Cells(2, lngSpalte).Value
If Dir(strPfadneu, vbDirectory) = "" Then MkDir (strPfadneu)
Next lngSpalte

MsgBox "Die Verzeichnisse wurden angelegt!", 48, "Hinweis"

End Sub

Gruß

M.O.