Mit folgendem Code wollte ich in einem Laufwerk miteels VBA Ordner und Unerordner anlegen.
Dies klappt jedoch nur mit der Anlage des Ordners. Die Unterordner werden leider nicht angelegt.
Wo habe ich hier bitte den Fehler gemacht?
Sub Ordner_Anlage()
Dim lngI As Long
Dim dokname
Dim dokname2
Dim dokname3
Dim wks As Worksheet
Set wks = Workbooks("Import_Ersatz.xls").Worksheets("Tabelle1")
On Error GoTo WEITER
dokname = wks.Range("D2") 'Standesdifferenten_jahr
dokname2 = wks.Range("F1") 'erstes_Halbjahr_jahr
dokname3 = wks.Range("F2") 'zweites_Halbjar_jahr
' Ordner Ablage muss vorhanden sein !!!
'For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\" & dokname
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\dokname" & "\" & dokname2
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\dokname" & "\" & dokname3
WEITER:
MsgBox "Ordner wurde bereits angelegt."
End Sub
Sub Ordner_Anlage2()
Dim lngI As Long
Dim dokname
Dim dokname2
Dim dokname3
Dim wks As Worksheet
Set wks = Workbooks("Import_Ersatz.xls").Worksheets("Tabelle1")
On Error GoTo WEITER
dokname = wks.Range("D2") 'Standesdifferenze_jahr
dokname2 = wks.Range("F1") 'erstes_Halbjahr_jahr
dokname3 = wks.Range("F2") 'zweites_Halbjar_jahr
' Ordner Ablage muss vorhanden sein !!!
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\dokname" & "\" & dokname2
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\dokname" & "\" & dokname3
WEITER:
MsgBox "Ordner wurde bereits angelegt."
End Sub
Danke
Josef