Ich möchte erreichen , dass nach dem Abarbeiten des untenstehenden codes die UserForm geschlossen wird.
Trotz Unload Me Befehl wird sie aber nicht geschlossen.
Wo habe ich da bitte den Fehler gemacht?
Danke
Josef
Private Sub CommandButton2_Click()
Dim lngI As Long
Dim dokname
Dim dokname2
Dim wks As Worksheet
Set wks = Workbooks("Import_Ersatz.xls").Worksheets("Tabelle1")
On Error GoTo WEITER
dokname = TextBox3.Text
dokname2 = TextBox4.Text
' Ordner Ablage muss vorhanden sein !!!
For lngI = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MkDir "K:\Allg_dat\TRANSFER\HST\ABT08\" & dokname2 & "\" & dokname
Next lngI
WEITER:
MsgBox "Ordner wurde bereits angelegt."
Unload Me
Call Schliesse_Add
End Sub