Sub viele_ordner_anlegen()
    Dim ordner_name(1 To 2001) As String
    Dim m(1 To 2001) As String
    Dim w As Integer
    globales_verzeichnis = ActiveWorkbook.Worksheets("CREATE_DATABASE").Range("A1").Value
    global_anzahl_neue_ordner = 2000
    For i = 1 To global_anzahl_neue_ordner
            w = i + 7
            f = i + 3
            If i < 10 Then
                m(i) = "db_" & "000" & i
            ElseIf i < 100 Then
                m(i) = "db_" & "00" & i
            ElseIf i < 1000 Then
                m(i) = "db_" & "0" & i
            ElseIf i >= 1000 Then
                m(i) = "db_" & i
            End If
            'ActiveWorkbook.Worksheets("db").Range("C" & w).Value = m
            'ActiveWorkbook.Worksheets("CREATE_DATABASE").Range("E" & f).Value = m(i)
    Next i
    For i = 1 To global_anzahl_neue_ordner
            w = i + 2
            ordner_name(i) = m(i)
            Call ordner_anlegen(ordner_name(i))
            Call Links_zu_Ordnern_erzeugen(ordner_name(i), w)
    Next i
    Sheets("CREATE_DATABASE").Select
    'Call Links_zu_Ordnern_erzeugen(ordner_name(i))

End Sub

Sub ordner_anlegen(ordner_name As String)
    globales_verzeichnis = ActiveWorkbook.Worksheets("CREATE_DATABASE").Range("A1").Value
    gesamtter_pfad = globales_verzeichnis & "\" & ordner_name
    MkDir gesamtter_pfad
End Sub

Sub Links_zu_Ordnern_erzeugen(name_ordner As String, w2 As Integer)
Dim i As Integer
'Dim w As Integer
globales_verzeichnis = ActiveWorkbook.Worksheets("CREATE_DATABASE").Range("A1").Value
global_anzahl_neue_ordner = 2000
'For i = 1 To global_anzahl_neue_ordner
'w = i + 2
name_des_ordners = name_ordner
globales_verzeichnis_neu = globales_verzeichnis & "\" & name_des_ordners

Sheets("CREATE_DATABASE").Select
Range("D" & CStr(w2)).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        globales_verzeichnis_neu, TextToDisplay:=name_des_ordners
'Next i
Range("A1").Select
End Sub