bitte um Hilfe... Danke

Hallo Wuschl32,

nachfolgendes Makro erstellt Dir Ordner mit dem Namen aus Spalte A einschließlich der Unterordner Kreditor und Debitor. Kopiere das Makro in ein StandardModul und starte es über z.B. eine Befehlsschaltfläche.

[b]Option Explicit

Sub Ordner_erstellen()
Dim i As Integer
Dim Pfad As String
Rem: Hier standarpfad, in dem der neue Ordner erstellt werden soll, angeben
Pfad = "E:\Müll\"
Rem: Schleife zum Anlegen der Ordner und Unterordner
For i = 1 To Range("A65536").End(xlUp).Row
MkDir Pfad & Cells(i, 1)
MkDir Pfad & Cells(i, 1) & "\Debitor "
MkDir Pfad & Cells(i, 1) & "\Kreditor  "
Next
End Sub[/b]

Du musst im Makro in der Zeile

[b]Pfad = "E:\Müll\"[/b]

noch den Pfad eintragen, in dem die Ordner erstellt werden sollen. Trage den Pfad zwischen die beiden Anführungszeichen ( "" ) ein.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Also ich bin hell auf begeistert !! Das funktioniert wie ne 1 !! Tausend dank, eigentlich sollte ich dir einen ausgeben ;) Viele Grüsse