VBA: Pfad nicht gefunden Laufzeitfehler 76

 

Sub ordner_anlegen()

    Dim intzeile As Integer
    Dim fs As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")  
    
    'intzeile auf die zeile setzen in der der erste datensatz steht  
    intzeile = 1
    
    'das in anführungszeichen durch den richtigen tabellennamen ersetzen  
    With Worksheets("Tabelle1")  
        
        'hier wird zeile für zeile durchgegangen bis eine leere zeile kommt  
        Do While Not IsEmpty(.Range("A" & intzeile))  
            
            'ordner erstellen mit dem entsprechenden inhalt der zeile  
            fs.createfolder ("C:\" & .Range("A" & intzeile) & " " & .Range("B" & intzeile))  
            'zeilenzähler eins hochzählen  
            intzeile = intzeile + 1
            
        Loop
        
    End With
    
End Sub