HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: userform checkbox | Herbers Excel-Forum

userform checkbox
Philipp

Hallo Zusammen,
eine für euch sicherlich einfache Frage.
Ich habe eine Userform und in dieser mehrere Checkboxen.
Unter anderem habe ich folgende Funktion:
Private Sub CB_1_Click()
MsgBox "test"
End Sub
warum wird diese funktion beim initialiesieren der userform aufgerufen, obwohl ich gar nicht auf die checkbox drücke?
Ich komme irgendwie nicht dahinter.
Vielen Dank

Bei mir nicht...
Björn

Hallo,
also bei mir macht es das nicht.
Versuch es mal mit ner neuen Userform und mach nur ne Checkbox rein. So hab ich das grad getestet.
Was machst du denn mit der Checkbox im initialize?
Setzt Du den Wert auf True? Dann liegt es daran. Das ist wie ein Klick.
wenn der Wert schon True sein soll, dann musst du den Wert in den Eigenschaften der Checkbox einstellen.
Gruß
Björn B.
AW: Bei mir nicht...
Philipp

Danke für den Hinweis.
Ja, ich setze den Wert beim initalisieren auf True. Es soll aber Variable bleiben , ob der Wert auf true gesetzt wird oder nicht. Also bringt es nichts die Eigenschaft fest einzustellen.
Hmm...und nun?
Gruß Philipp
Application.EnableEvents = False
Björn

Wenn du den Wert im Initialize variabel setzen willst, z.B. in Abhängigkeit eines Zellwertes, dann musst Du bevor du den Wert setzt folgende Zeile schreiben:
Application.EnableEvents = False
Aber unbedingt danach wieder mit True einschalten!!!!
Gruß
Björn
unnütz!
Rudi

Hallo,
Application.EnableEvents greift in UFs nicht.
Gruß
Rudi
Auch wieder war...
Björn

Stimmt.
Danke Rudi, da war ich zu vorschnell mit der Antwort.
Hatte das gleiche Problem mal vor Jahren, hab das dann auch so gelöst, wie du geschrieben hast.
Fiel mir nur nicht gleich ein.
Aber gut, dass es hier noch Leute gibt, die aufpassen.
Gruß
Björn.
AW: userform checkbox
Rudi

Hallo 
Option Explicit
Dim blnINIT As Boolean
Private Sub UserForm_Initialize()
blnINIT = True
CheckBox1 = True
blnINIT = False
End Sub
Private Sub CheckBox1_Click()
If Not blnINIT Then
MsgBox "Test"
End If
End Sub
Gruß
Rudi
DANKE
Philipp

.