Office: Ordner aus Excel erstellen

Hallo,

um eine Vielzahl von Windows Ordnern auf dem PC anzulegen suche ich nach einer Lösung über Excel.
In Spalte A stehen von Zeile 1 bis 1000 die Ordnerstrukturen die auf c:/ angelegt werden sollen.
Die Unterordner sind mit einem vom Hauptordner getrennt.

Als Beispiel:
Spalte A
Deutschland/Hessen/Frankfurt/Bleichstraße/Gebäude1/Geschoss1
Deutschland/Hessen/Frankfurt/Bleichstraße/Gebäude1/Geschoss2
Deutschland/HessenFrankfurt/Bleichstraße/Gebäude2/Geschoss1
Deutschland/Hessen/Kassel/Fuldastraße/Gebäude2/Geschoss1
Deutschland/Thüringen/Eisenach/Bahnhofstraße/Gebäude3
Deutschland/Thüringen/Eisenach/Bahnhofstraße
Deutschland/Thüringen/Gotha/Bahnhofstraße
Deutschland/Bayern/München/Steinstraße/Gebäude1/Geschoss1
Deutschland/Bayern/München/Steinstraße/Gebäude1/Geschoss1
Frankreich/Normandie/Bayeux/Straße

Wenn es einen Ordner schon gibt, soll dann nur der oder die Unterordner angelegt werden.


Hat jemand so etwas schon mal gemacht oder kennt eine Lösung?

:)

 

Hallo,

meistens ist es besser, die Daten anderst zu strukturieren.

Deshalb nur ein Tip (leider kann ich keinen direkten Link setzen)

In Herber.de/forum gab es eine ähnliche Frage und eine sehr gute Antwort. Auf der Webseite gibt es Suchfeld, dort "Nepumuk" eintragen und dann die Diskussion "mehrstufige Ordnerstruktur" suchen.

mfg

(der Code ist eher für Geübte)

 

Hallo,

es geht auch (hoffentlich) etwas verständlicher:

PHP:

         Sub OrdnerAnlegen()
'### nur zum testen
SF = Array("c:tempa", "c:tempb", "c:tempa1")
Cells(1, 1).Resize(UBound(SF) + 1) = Application.Transpose(SF)
'### nur zum testen
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To lr
Tx = IIf(Right(Cells(i, 1), 1) = "", Cells(i, 1), Cells(i, 1) & "")
MakeSureDirectoryPathExists (Tx)
Next i
End Sub


 

Hallo,
erst mal Danke für die Hilfestellung.
Das von "Nepumuk" funktioniert bei mir so nicht, zumal ich das nicht Ansatzweise durchschaue.

Beim Ausführen hängt sich das Makro bei
MakeSureDirectoryPathExists (Tx)
auf. (Fehler beim Komoilieren)

Das sagt die Hilfe ;-)

title: "Sub", "Function" oder "Property" nicht definiert (Fehler 35); Office Shared [vblr6.chm1000035] keywords: vblr6.chm1000035 f1_keywords:
vblr6.chm1000035 ms.prod: office ms.assetid: 4be90f8c-7d53-4283-969f-958ea3068085
ms.date: 06/08/2017
"Sub", "Function" oder "Property" nicht definiert (Fehler 35); Office Shared [vblr6.chm1000035]

 

Hallo, *Smilie

schau Dir mal folgende Links an: *wink.gif*

Ordner erstellen - Liste in Spalte A

Und...

Ordner erstellen...

Servus
Case

 

Hallo,

es ist schwierig nach Case noch zu kommentieren.

Die Variable "Tx" muss den kompletten Pfad enthalten, auf das Beispiel bezogen

Tx = "c:\temp\" & cells(i,1)

mfg

 

Hallo "Fennek11" und "Case_Germany" Vielen Dank.

Der Code unter dem Link "Ordner erstellen - Liste in Spalte A"
macht fast genau das was ich suche.
Die restliche Anpassung bekomme ich hoffentlich hin.

MfG

Hyla