Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

userform checkbox | Herbers Excel-Forum


Betrifft: userform checkbox von: Philipp
Geschrieben am: 17.11.2009 14:08:33

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

  

Betrifft: Bei mir nicht... von: Björn B.
Geschrieben am: 17.11.2009 14:17:28

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.


  

Betrifft: AW: Bei mir nicht... von: Philipp
Geschrieben am: 17.11.2009 14:25:03

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


  

Betrifft: Application.EnableEvents = False von: Björn B.
Geschrieben am: 17.11.2009 14:20:33

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


  

Betrifft: unnütz! von: Rudi Maintaire
Geschrieben am: 17.11.2009 14:22:35

Hallo,
Application.EnableEvents greift in UFs nicht.

Gruß
Rudi


  

Betrifft: Auch wieder war... von: Björn B.
Geschrieben am: 17.11.2009 14:38:46

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.


  

Betrifft: AW: userform checkbox von: Rudi Maintaire
Geschrieben am: 17.11.2009 14:34:09

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


  

Betrifft: DANKE von: Philipp
Geschrieben am: 17.11.2009 14:40:28

.


Beiträge aus den Excel-Beispielen zum Thema "userform checkbox"