Alleen 1 aanvinken gaat fout

[brommer]

Als ik de volgende procedure wilt doen dan blijft excel hangen.
kan iemand mij vertellen waarom dit zo is, lijkt mij een simpele opgave.

Option Explicit
Private Sub CheckBox1_click()

CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox1.Value = True
End Sub

Private Sub CheckBox2_Click()
CheckBox1.Value = False

CheckBox3.Value = False
CheckBox4.Value = False
CheckBox2.Value = True
End Sub

Private Sub CheckBox3_Click()
CheckBox1.Value = False
CheckBox2.Value = False

CheckBox4.Value = False
CheckBox3 = True
End Sub

Private Sub CheckBox4_Click()
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False

CheckBox4 = True
End Sub
v

 

[Cobbe]

Kan de fout niet reproduceren.
Met een leeg bestand kan je ook niet zoveel, hé

 

[Conseclusie]

Je click-event op (bv.) CheckBox1 zorgt er (o.a.) voor dat CheckBox1 = True. Dus of je hem nu aan -of uitklikt: de waarde zal altijd True zijn.
Probeer iets als:

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
End If
End Sub

 

[brommer]

Je click-event op (bv.) CheckBox1 zorgt er (o.a.) voor dat CheckBox1 = True. Dus of je hem nu aan -of uitklikt: de waarde zal altijd True zijn.
Probeer iets als:

Private Sub CheckBox1_Change()
If CheckBox1.Value = True Then
    CheckBox2.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
End If
End Sub

Top wist dat het simpel moest zijn.