Ordner anlegen anhand Liste
06.04.2018 13:44:33
udo
habe schon selbst etwas recherchiert und hatte in der Recherche einen
CODE zum Ordner erzeugen gefunden und ihn etwas an meine Zellen angepasst.
Allerdings meckert er immer an der Stelle nach MKdir ... ?
Sieht von euch Jemand die Ursache, ich rätzel schon eine Weile u komm leider nicht drauf.
Die Auflistung der Ordnernamen beginnt bei mir in P17:P... ( ist verschieden lang ) und enthält keine doppelten Namen.
Der Ordnerpfad - in den hinein die zu erzeugenden Unterordner ( mit den jew. Namen aus meiner Auflistung )
erzeugt werden sollen - steht in H13 und hat hinten kein Backslash.
Könntet ihr mir hierbei bitte helfen, wäre Euch sehr dankbar um jede Hilfe
LG udo
Sub OrdnerAnlegen2()
Dim lngI As Long, Pfad As String
Pfad = [H13].Value ' in H13 steht ( ohne Backslash _
hinten ): C:\Users\MUSTERMANN\Desktop\Verzeichnis
For lngI = 17 To ActiveSheet.Cells(Rows.Count, 16).End(xlUp).Row '( 16 war im Bsp. 1 ; _
17 war auch 1)
MkDir Pfad & "\" & ActiveSheet.Cells(lngI, 16).Text '( 16 war im Bsp. 1 ; 17 _
war auch 1)
Next lngI
End Sub