CheckBox
04.11.2003 19:23:48
mrakliwo
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