Hallo Tomschi,

nachfolgendes Makro erstellt Dir entsprechend der Vorgabe aus Deiner Beispieldatei die Verzeichnisse mit den angegebenen Unterverzeichnissen. Es werden soviele Unterverzeichnisse angelegt, wie in einer Zeile stehen.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Const strPfad As String = "C:\tmp\"

Sub Verzeichnis_erstellen()
Dim iRow    As Long
Dim iCol    As Integer
Dim strVerz As String
For iRow = 3 To Range("A65536").End(xlUp).Row
    strVerz = strPfad
    For iCol = 1 To Range("IV" & iRow).End(xlToLeft).Column
    strVerz = strVerz & Cells(iRow, iCol) & "\"
    MkDir strVerz
    Next
Next
End Sub

Du musst in dem Makro in der Zeile

Const strPfad As String = "C:\tmp\"

eventuell noch den Pfad anpassen, in dem die Verzeichnisse erstellt werden sollen.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Oliver!

Wow, muss mir Deinen Code mal in Ruhe ansehen und ausprobieren. Vorweg schon mal ein DANKESCHÖN!

Tom