ich benötige Hilfe bei einem VBA-Script.
Ich möchte anhand einer Excel-Liste per VBA Ordner in einem bestimmten Pfad erstellen lassen. Im Netz habe ich folgendes gefunden
Sub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("Help")
Do While Not IsEmpty(.Range("B" & intzeile))
fs.createfolder ("C:\Temp\Ordner\" & "Anlage " & .Range("B" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
Das Script funktioniert bis einschließlich dem 31. Namen (die Liste führt Anlagennamen) super. Dann kommt eine Fehlermeldung
Laufzeitfehler '76':
Pfad nicht gefunden
Wenn ich die Liste gegen fortlaufende Zahlen tausche werden alle Ordner komplett angelegt, nur leider mit den Zahlen und nicht den eigentlichen Anlagennamen...Hat jemand zu diesem Problem eine Idee? Vielen Dank schon einmal im Voraus!
VG Gregy