ich möchte in VBA aus einer Liste A1: A100 insgesamt 100 Ordner erzeugen,
welche als Ordnernamen den Inhalt den Zellen haben.
Die leeren Ordner sollen nur erstellt werden. Es sollen keine Dateien rein.
Kann mir hier jemand weiterhelfen?
Gruß
Andres
Sub test_Ordner()
Dim strOrdner As String, i As Long, strpfad As String
For i = 1 To 100
strOrdner = Cells(i, 1).Text
strpfad = ThisWorkbook.Path & "\" & strOrdner ' Hier den Pfad eingeben, wo die Ordner _
hinsollen
If Dir(strpfad, vbDirectory) = "" Then
MkDir (strpfad)
End If
Next i
End Sub
Gruß
Chris