Sub einen_ordner_anlegen()
    Dim ordner_name As String
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    ordner_name = ActiveWorkbook.Worksheets("blatt_K").Range("C5").Value
    Call ordner_anlegen(ordner_name)
End Sub

Sub viele_ordner_anlegen()
    Dim ordner_name(1 To 1000) As String
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    anzahl_neue_ordner = ActiveWorkbook.Worksheets("blatt_K").Range("C7").Value
    For i = 1 To anzahl_neue_ordner
            w = i + 8
            ordner_name(i) = ActiveWorkbook.Worksheets("blatt_K").Range("C" & w).Value
            Call ordner_anlegen(ordner_name(i))
    Next i
End Sub

Sub ordner_anlegen(ordner_name As String)
    verzeichnis = ActiveWorkbook.Worksheets("blatt_K").Range("C3").Value
    gesamtter_pfad = verzeichnis & "\" & ordner_name
    MkDir gesamtter_pfad
End Sub