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