AW: Der Code ist von Engelchen-22.8.2018
01.09.2018 19:48:31
Engelchen-22.8.2018
Hallo Brigitte,
keine Angst! Wenn Du etwas falsch "programmierst", dann sagt Dir Excel schon, dass es falsch ist. Oder Du siehst es im Explorer, dass das Verzeichnis vielleicht irgendwo anders steht. Und dann kannst Du es ändern. Jeder hat mal klein angefangen (ich übrigens auch ;-))
Ich weiß jetzt nicht, ob ich Deine Anforderung richtig verstanden habe. Entweder wie von Nepomuk richtig beschrieben:
Zitat:
"du musst in dieser Zeile:
strPfad = ThisWorkbook.Path & "\" & Cells(i, 3) & ", " & Cells(i, 4) & " " & Cells(i, 5)
an Stelle von ThisWorkbook.Path den Pfad zum Ordner "NeueKunden" eintragen."
Zitat-Ende
D.h., wenn z.B. der Ordner "NeueKunden" unter D:\ steht, dann so:
strPfad = "D:\NeueKunden" & "\" & Cells(i, 3) & ", " & Cells(i, 4) & " " & Cells(i, 5)
Wenn z.B. der Ordner "NeueKunden" unter D:\Test\ steht, dann so:
strPfad = "D:\Test\NeueKunden" & "\" & Cells(i, 3) & ", " & Cells(i, 4) & " " & Cells(i, 5)
Das Prinzip ist immer das Gleiche.
Soll der Pfad jedoch gemäß der bereits exisitierenden Struktur (siehe Dein Code-Schnipsel weiter oben) angewendet werden, dann z.B. Deinen Code so ergänzen:
MkDir strPfad
MkDir strPfad & "\Berichte"
MkDir strPfad & "\Rechnungen"
MkDir strPfad & "\Sonstiges"
MkDir strPfad & "\Weiterer Unterordner"
MkDir strPfad & "\Weiterer Unterordner\Irgendetwas"
MkDir strPfad & "\NeueKunden"
MkDir strPfad & "\NeueKunden\Kundenenordner"
MkDir strPfad & "\NeueKunden\Kundenenordner\Unterordner"
Wichtig für Dich vielleicht zu wissen: Man muss immer jeden Unterordner einzeln erstellen, man kann nicht eine ganze "Ordnerstruktur" auf einmal erzeugen (zumindest habe ich es mal so gelesen). Deswegen die 3 Schritte.
Ich hoffe, ich konnte Dir ein paar hilfreiche Tipps geben.
Ein schönes Wochenende noch!
Engelchen