Hallo, war leider krank,
ansich läuft der Code jetzt, aber er ist mir zu unübersichtlich.
Ich versuche etwas zu reduzieren, und nun kommt ein "Laufzeitfehler 424", obwohl keine Änderung in diesem Abschnitt.
Dim i As Integer
Dim Schalter As String
Dim Anzahl As Integer
Dim ZAEHLER As Integer
Dim max As Integer
Dim EB As String
Dim ctrl As Control
Dim ctrl_1 As Control
Dim ctrl_2 As Control
Dim ctrl_3 As Control
Dim ctrl_4 As Control
Dim ctrl_5 As Control
Dim ctrl_6 As Control
Dim Lw As String
Dim HV As String
Dim UV2 As String
Dim UV3 As String
Dim OB_NAME As String
Dim OB_NAME2 As String
Dim OB_NAME3 As String
Dim Dir_1 As Variant
Dim Dir_2 As String
Dim OB_EIGENSCHAFT As String
Dim OB_EIGENSCHAFT2 As String
Dim xEBENE_2 As String
Dim xEBENE_3 As String
Dim Fso, strV
Dim xTB As String
Dir_1 = ""
Dir_2 = ""
Lw = TB_DEF_LW.Value
HV = TB_EBENE_1.Value
Stop
For Each ctrl_1 In Me.Frame2.Controls
If TypeOf ctrl_1 Is MSForms.CheckBox Then
OB_NAME = ctrl_1.Name
OB_EIGENSCHAFT = ctrl_1.Value
If OB_EIGENSCHAFT = True Then
xTB = "TB_EBENE_" & Right(OB_NAME, Len(OB_NAME) - 2)
UV2 = Controls(xTB).Value
'MsgBox "Optionsfeld " & OB_NAME & " ist eingeschaltet"
'MsgBox UV2
Dir_1 = Lw & "\" & HV
Dir_2 = Lw & "\" & HV & "\" & UV2
If Fso.FolderExists(Dir_1) = True Then ' ## bhawener hier kommt Fehler 424 Objekt erforderlich
MsgBox Dir_1 & " existiert bereits"
Else
MsgBox Dir_1 & " könnte angelegt werden"
End If
End If
Next
bei der Abfrage ob das Verzeichnis existiert kommt der Fehler (steht auch im Komentar)
Die Variable Dir_1 ist aber befüllt und der Pfad existiert.
Vielleicht kann mir hier nochmal jemand auf die Sprünge helfen, danke
|