Supportnet Computer
Planet of Tech

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.

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


Du 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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: