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
Dir_1 = Lw & "\" & HV
Dir_2 = Lw & "\" & HV & "\" & UV2
If Fso.FolderExists(Dir_1) = True Then <strong>
MsgBox Dir_1 & " existiert bereits"
Else
MsgBox Dir_1 & " könnte angelegt werden"
End If
End If
Next