CheckBox mit VBA bei Click wieder Deaktivieren
25.12.2016 12:21:03
Kai
Hallo
Ich habe ein kleines Problem mit der Programmierung
von Checkboxen mit VBA.
Ich habe ein Formular bei dem immer 3 Checkboxen in
Abhängigkeit stehen.
Private Sub CheckBox14_Click()
CheckBox14.Value = True
CheckBox15.Value = False
CheckBox16.Value = False
End Sub
Private Sub CheckBox15_Click()
CheckBox15.Value = True
CheckBox14.Value = False
CheckBox16.Value = False
End Sub
Private Sub CheckBox16_Click()
CheckBox16.Value = True
CheckBox15.Value = False
CheckBox14.Value = False
End Sub
Das funktioniert soweit auch ganz gut aber
jetzt möchte ich die Checkbox eventuell auch
wieder deaktivieren, was ich mit folgendem Code
versucht habe.
Private Sub CheckBox14_Click()
If CheckBox14 = True Then
CheckBox14.Value = False
Else
CheckBox14.Value = True
End If
CheckBox15.Value = False
CheckBox16.Value = False
End Sub
Private Sub CheckBox15_Click()
CheckBox15.Value = True
CheckBox14.Value = False
CheckBox16.Value = False
End Sub
Private Sub CheckBox16_Click()
CheckBox16.Value = True
CheckBox15.Value = False
CheckBox14.Value = False
End Sub
Das Problem jetzt ist aber das VBA bei
bei der Checkbox14 änderung die If Then Else
Schleife 2 mal durchläuft und sich somit nichts
ändert.
Würde mir sehr helfen wenn jemand wüßte wie ich
das Problem umgehen kann.
MFG und Frohe Weihnachten.
PS benutze Excel 2016