VisualBasic Ordner mit Unterordner erstellen lassen

Option Explicit
Const strPfad As String = "C:" ' anpassen

Private Declare Function MakeSureDirectoryPathExists _
    Lib "imagehlp.dll" (ByVal Pfad As String) As Long

Public Sub Test()
    Dim wksSheet As Worksheet
    Dim lngLastRow As Long
    Dim lngLastRow2 As Long
    Dim lngReturn As Long
    On Error GoTo Fin
    Set wksSheet = ThisWorkbook.Worksheets("Tabelle1")   'anpassen!
    With wksSheet
        lngLastRow = .Range("A" & .Rows.Count).End(xlUp).Row ' Spalte A
        For lngLastRow = 1 To lngLastRow ' ab Zeile 1 also eventuell anpassen
            If Trim(.Cells(lngLastRow, 1).Value) <> "" Then
            MakeSureDirectoryPathExists (strPfad & .Cells(lngLastRow, 1).Value & "")
               End If
            Next lngLastRow
            
    End With
Fin:
    Set wksSheet = Nothing
End Sub