---

Hallo liebe Excel-Gemeinde,
hätte da eine "kniffige" Frage:
Ich möchte mittels Excel aus der zb. der Spalte A1 bis AXX ,Ordner
auf der Festplatte erstellen lassen.
(anschauliches Bsp) A1=Jänner ; A2=Februar ; A3=März etc.
, jetzt wäre es noch super mir den Speicherpfad aussuchen zu können , muss aber nicht sein reicht auch wenn es auf C:\Temp\ gespeichert wird.

Ist das möglich ?
Und wie ?!

Danke vorab
Jürgen

------------------
"Hier werden Sie geholfen........"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Jürgen,

eine der simpelsten Methoden wäre, wenn du dir bei deinen Zellen überall ein [b][i]md[b][i] davor schreiben lässt.

zB:
A1 = Jänner
B1 = md
C1 = =B1&" "&A1

Somit steht dann in C1 = md Jänner

Nun kannst du die ganze Spalte C markieren und in eine Textdatei kopieren, diese wiederum verschiebst du in den Hauptordner, wo deine Unterordner erstellt werden sollen (bei dir dann zB c:\Temp); dann noch die Textdatei umbenennen auf .cmd (also anstelle des .txt) und einmal ausführen. Dann sollten alle deine Ordner erstellt werden.

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi auch,

oder so, wobei der Pfad existieren muss:

Code:

---

Sub x()
  Dim i As Byte
  For i = 1 To 5
      If Cells(i, 1) <> "" Then MkDir "d:\daten\" & Cells(i, 1).Value
  Next
End Sub

---

Gruss Nancy     

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das war es was ich wollte !!

Danke Nancy !!

LG
Jürgen

------------------
"Hier werden Sie geholfen........"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Nancy,

gibt es auch eine möglichkeit für Ordner und Unterordnerstruktur?

Liebe Grüße

------------------
Gazelle

"Gilde der Erfinnder"

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Gazelle,

mit MkDir läßt sich immer nur ein direktes Unterverzeichnis erstellen.

Für "D:\TEST\DIR1\DIR2" brauchst Du also u.U. sowas:

MkDir "D:\TEST"
MkDir "D:\TEST\DIR1"
MkDir "D:\TEST\DIR1\DIR2"

Oder Du nimmst sowas. Das legt alles auf einmal an.

HTH, Bernd
--
Option Explicit

Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
  (ByVal Pfad As String) As Long
 
Sub Pfad_anlegen()
  MakeSureDirectoryPathExists "D:\TEST\DIR1\DIR2\"
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP