Checkbox-Klick mit Zirkelbezug
02.12.2007 13:59:00
Nefjs
ich habe eine Userform mit einer Checkbox. Bei Klick darauf wird eine Prüfroutine gestartet, die bestimmt, ob das Häkchen setzen/entfernen zur Zeit erlaubt ist. Falls nicht, soll der alte Wert erhalten bleiben.
Private Sub CheckBox1_Click()
Application.EnableEvents = False
If Not Prüfung Then
MsgBox "Status kann nicht geändert werden!"
CheckBox1.Value = Not CheckBox1.Value
End If
Application.EnableEvents = True
End Sub
Private Function Prüfung() 'Hier wird irgendwas geprüft
Prüfung = False
End Function
Trotz
EnableEvents = False
wird hier eine Endlosschleife ausgelöst, d.h. das zurücksetzen des Checkboxwertes löst immer wieder die Prozedur aus. Warum greift EnableEvents = False hier nicht und was wäre eine Alternative?
Schönen Sonntag,
Nefjs