Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Checkbox-Klick mit Zirkelbezug

Checkbox-Klick mit Zirkelbezug
02.12.2007 13:59:00
Nefjs
Guten Tag,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkbox-Klick mit Zirkelbezug
02.12.2007 14:18:51
Tino
Hallo,
EnableEvents geht in Userformen nicht.
Versuche es mit der Tag Eigenschaft der Checkbox

Private Sub CheckBox1_Click()
If CheckBox1.Tag = "" Then
If Not Prüfung Then
MsgBox "Status kann nicht geändert werden!"
CheckBox1.Tag = "1"
CheckBox1.Value = Not CheckBox1.Value
End If
End If
CheckBox1.Tag = ""
End Sub


Gruß
Tino

AW: Checkbox-Klick mit Zirkelbezug
02.12.2007 16:08:00
Nefjs
Hallo Tino,
klasse Idee, funktioniert.
Vielen Dank
Nefjs
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige