Hi Excel-Freunde!
Ich habe eine Excel-Liste mit ca. 1000 Zeilen, welche beschriftet sind (Nummern und Namen). Genau diese Bezeichnungen brauche ich jetzt auch als Ordner.
Noch genauer: Ich ahbe sogar eine Hirarchie einzuhalten - d.h.: Ich habe in Spalte 1 jeweils die erste Ebene, in Spalte 2 die zweite Ebene, … bis Spalte 9.
Jetzt soll der Ordner von der ersten Spalte den Ordner aus der 2. Spalte beinhalten. >>> Diesen Teil könnte ich auch manuell machen - kein Problem.
Wichtig wäre für mich auf Knopfdruck die Ordner aus der Excel-Liste erstellen zu können!
Vielen lieben Dank im Voraus!!
Ronny
Hallo, Ronny!
Wichtig wäre für mich auf Knopfdruck die Ordner aus der
Excel-Liste erstellen zu können!
Ungefähr so sollte es gehen:
Sub CreateFolders()
Const cstrProcName = "CreateFolders"
' gemeinsames Oberverzeichnis aller weiteren Verzeichnisse
Const STARTPATH As String = "C:\Temp"
Dim lngZeile As Long
Dim lngSpalte As Long
Dim strPath As String
'--------------------
On Error GoTo ErrorHandler
' angenommen, die Verzeichnisse stehen erst ab Zeile 2
' (wg. Überschrift in der 1. Zeile)
lngZeile = 2
Do While Tabelle1.Cells(lngZeile, 1) ""
' Immer mit Startverzeichnis anfangen
strPath = STARTPATH
' Spalten durchlaufen, bis zur ersten leeren
lngSpalte = 1
Do While Tabelle1.Cells(lngZeile, lngSpalte) ""
' Verzeichnis erzeugen
strPath = strPath & "\" & Tabelle1.Cells(lngZeile, lngSpalte)
MkDir strPath
lngSpalte = lngSpalte + 1
Loop
' nächste Zeile
lngZeile = lngZeile + 1
Loop
'--------------------
ErrorHandler:
Select Case Err.Number
Case 0
Case 75
' Verzeichnis gibt's schon: egal, weiter machen
Resume Next
Case Else
MsgBox "Fehler: " & vbTab & Err.Number & "-" & Err.Description & vbCrLf \_
& "Modul:" & vbTab & "Modul1" & vbCrLf \_
& "Funktion:" & vbTab & cstrProcName, vbExclamation + vbOKOnly, "Fehler!"
Resume ErrorHandler
End Select
End Sub
Gruß, Manfred