Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ordner mit Unterordner anlegen

Ordner mit Unterordner anlegen
12.12.2018 19: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
Anzeige
AW: Ordner mit Unterordner anlegen
12.12.2018 20: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


 ABCDEF
1Gruß Sepp
2
3

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige