ich habe eine Userform und möchte dort gerne bei Bedarf alle Checkboxen auf einmal auswählen, d.h. den Haken setzen bzw. das ganze umkehren und den Haken entfernen.
Momentan verwende ich dazu folgenden Code, der zwar funktioniert, jedoch muss ich hier jede Checkbox einzeln erfassen.
Kann mir jemand sagen, wie ich das mittels Loop hinbekomme, so dass es unabhängig von der Zahl der Checkboxen funktioniert ?
Der Name der Userform ist UserForm1.
Mein Code:
If Me.CmbOptions.Value = Worksheets(5).Range("OptionsDefault").Value Then
Worksheets(2).Range("Options").EntireRow.Hidden = False
Me.Check1.Value = True
Me.Check2.Value = True
Me.Check3.Value = True
Me.Check4.Value = True
Me.Check5.Value = True
ElseIf Me.CmbOptions.Value = Worksheets(5).Range("OptionsCustom").Value Then
Me.Height = constSizeL
Else
Worksheets(2).Range("Options").EntireRow.Hidden = True
Me.Check1.Value = False
Me.Check2.Value = False
Me.Check3.Value = False
Me.Check4.Value = False
Me.Check5.Value = False
End If
Vielen Dank im Voraus,
Frank