Supportnet / Forum / Tabellenkalkulation
Ordner aus Zellen erstellen
Frage
Hallo,
ich brauche mal ganz ganz dringend Hilfe :-)
Also, wir haben eine Arbeitsmappe, in der ungefähr 500 Nummern untereinander in einer Spalte aufgelistet sind.
Aus jedem dieser Werte soll ein Ordner entstehen.
Also z.B A1=123 A2=234 Dann soll er die Ordner 123 und 234 erstellen. Zusätzlich soll in jedem dieser Ordner die Unterordner Debitor und Kreditor entstehen. Hat jemand eine Idee wie man das mit Makros hinbekommt ?
1000 Dank
Viele Grüsse
Antwort 1 von Wuschl32
bitte um Hilfe... Danke
Antwort 2 von coros
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.
Du musst im Makro in der Zeile
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.
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.
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 SubDu musst im Makro in der Zeile
Pfad = "E:\Müll\"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.
Antwort 3 von Wuschl32
Also ich bin hell auf begeistert !! Das funktioniert wie ne 1 !! Tausend dank, eigentlich sollte ich dir einen ausgeben ;) Viele Grüsse

