Von Wörtern in Spalte A möchte ich auf einem Laufwerk (Netzlaufwerk) Ordner erstellen lassen.
Ich habe hier im Archiv den folgenden Code gefunden:
Sub ordner()
Dim letzte As Long
ChDrive "O:\TB\Test\temp"
For letzte = 1 To Range("A65536").End(xlUp).Row
MkDir Cells(letzte, 1).text
Next
End Sub
Die Ordner werden immer nur im Ordner O:\TB\Test erstellt.Im Voraus besten Dank für Tipps.
Thomy