Hallo,
Ist es moeglich diese Code kurzen????.Geht um 25 CheckBox

Private Sub CheckBox1_change()

Dim CheckBox1 As OLEObject
Dim CheckBox2 As OLEObject
Dim CheckBox3 As OLEObject
Dim CheckBox4 As OLEObject
Dim CheckBox5 As OLEObject
Dim CheckBox6 As OLEObject

If UserFormOP.CheckBox1.Value = True Then
UserFormOP.CheckBox2.Value = False
UserFormOP.CheckBox3.Value = False
UserFormOP.CheckBox4.Value = False
UserFormOP.CheckBox5.Value = False
UserFormOP.CheckBox6.Value = False
Else
If UserFormOP.CheckBox2.Value = True Then
UserFormOP.CheckBox1.Value = False
UserFormOP.CheckBox3.Value = False.......usw

Kann mir da jemand weiter helfen?

Grüße jan