Ordner anlegen aus Exelliste II
27.10.2017 12:59:20
Basti
habe im Forum diesen Beitrag gefunden
www.herber.de/.../754469_Ordner_anlegen_aus_Exelliste.html
Durch meinen aktuellen Ablauf, erstellt MkDir einen Ordner im Zielverzeichnis, der Sowohl den Namen des zuvor gewählten Ordners im Zielverzeichnis, als auch des in Zelle - A1 enthaltenen Begriffs erstellt.
Die Variable fVerz scheint sich mit MkDir nicht zu vertragen.
Sub OrdnerAnlegen()
Dim lngI As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Dim fs As Object
Dim fVerz As Object
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.GetFolder(.SelectedItems(1))
For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir fVerz & ActiveSheet.Cells(lngI, 1).Text
Next lngI
End If
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub
Danke für Eure Hilfe
Gruß
Basti