Ordner mit Unterordner anlegen

Forumthread: Ordner mit Unterordner anlegen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ordner mit Unterordner anlegen

12.12.2018 20:21:13

Marquardt

Hallo Forummitglieder,
ich möchte aus Excel einen Ordner und zwei Unterordner anlegen.
im Tabellenblatt "Test, T4" steht der zu erstellende Ordner
im Tabellenblatt "Test1, E1" steht der Pfad
im Tabellenblatt "Firmen, T6 und T7" stehen die Unterordner.
Aber leider geht es nicht!
Kann mir jemand helfen?


Sub Ordner_erstellen()
Dim Zeilen As Long, Pfad As String, FullPfad As String, i As Long
Zeilen = Sheets("Test").Range("T4").End(xlUp).Row
Pfad = Sheets("Test1").Range("E1")
For i = 1 To Zeilen
FullPfad = Pfad & Cells(i, 1) & "\" & Sheets("Firmen").Range("t6") & "\"
FullPfad = Pfad & Cells(i, 1) & "\" & Sheets("Firmen").Range("t7") & "\"
Call MakeSureDirectoryPathExists(FullPfad)
Next i
End Sub

Vielen Dank.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ordner mit Unterordner anlegen

12.12.2018 21:20:50

Sepp

AW: Ordner mit Unterordner anlegen

12.12.2018 21:20:50

Sepp

Hallo Marquard,
wozu die Schleife?

Sub Ordner_erstellen()
  Dim strCreate As String
  
  With Sheets("Test")
    strCreate = .Range("E1") & "\" & .Range("T4") & "\" & Sheets("Firmen").Range("T6") & "\"
    Call MakeSureDirectoryPathExists(strCreate)
    strCreate = .Range("E1") & "\" & .Range("T4") & "\" & Sheets("Firmen").Range("T7") & "\"
    Call MakeSureDirectoryPathExists(strCreate)
  End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0