Checkboxen verknüpfen
17.11.2022 11:08:33
Sascha
Ich habe ein VBA Problem mit 2 Checkboxen.
Die Checkboxen sollen folgendermaßen verknüpft sein:
- Beide Checkboxen können deaktiviert sein
- Jede einzelne Checkbox kann aktiviert sein
- Es können nicht beide Checkboxen gleichzeitig aktiviert sein
- Wenn eine Checkbox 1 aktiviert ist und Checkbox 2 angeklickt (aktiviert) wird, dann wird Checkbox 1 automatisch deaktiviert (und umgekehrt)
Ich habe das geschafft, allerdings muss ich die Checkbox, die aktiviert sein soll immer 2x anklicken wenn die andere Checkbox bereits aktiv ist.
Mit dem ersten mal anklicken wird die andere Checkbox deaktiviert (und leider die angeklickte auch) und erst beim 2. mal anklicken ist diese dann aktiv.
Wo liegt der Fehler?
Hier der Code (in diesem Fall ist die Checkbox1 mit der Checkbox67 verknüpft), das mit "Checkbox1 = True" funktioniert gar nicht, dann bleibt sie immer aktiv (darum habe ich es auskommentiert):
Private Sub CheckBox1_Click()
If CheckBox67 = True Then CheckBox67 = False
'CheckBox1 = True
NotRel CheckBox1, Label1, ToggleButton1
End Sub
Gruß und vielen Dank vorab,Sascha