Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1596to1600
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
Inhaltsverzeichnis

MsgBox wird zweimal ausgeführt

MsgBox wird zweimal ausgeführt
28.12.2017 14:53:21
Peter
Hallo zusammen...
Ich habe folgenden Code:
Private Sub CB_1_Click()
If Textbox1 = "" And textbox2 = "" Then
MsgBox "BlaBla", _
vbExclamation, "titel"
CB_Drehen = False
Textbox3.BorderStyle = fmBorderStyleSingle
Textbox3.BorderColor = RGB(255, 0, 0)
Else
End If
End Sub

Bei Klick auf die Checkbox soll der Code ausgeführt werden: Funktioniert auch alles nur wird der Code zweimal ausgeführt --> die Msgbox wird zweimal angezeigt...
Hat da jemand eine Idee an was das liegen kann?
Ich habe schon von click auf Change geändert --> kein unterschied
Vielen Dank und Gruß
Sigi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox wird zweimal ausgeführt
28.12.2017 15:01:15
Hajo_Zi
Hallo Sigi,
bei mir nur einmal.
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: MsgBox wird zweimal ausgeführt
28.12.2017 15:29:03
Nepumuk
Hallo Sigi,
CB_1 = False ruft natürlich das Click-Event auf. Wenn du das verhindern willst, musst du das so machen:
Private Sub CB_1_Click()
    Static sblnNoEvent As Boolean
    If Not sblnNoEvent Then
        sblnNoEvent = True
        If Textbox1 = "" And Textbox1 = "" Then
            MsgBox "blabla", vbExclamation
            Textbox2.BorderStyle = fmBorderStyleSingle
            Textbox2.BorderColor = RGB(255, 0, 0)
            CB_1 = False
        End If
    End If
    sblnNoEvent = False
End Sub

Mir erschließt sich allerdings der Sinn nicht. Ein Control zum anhaken welches sich nicht anhaken lässt.
Gruß
Nepumuk
Anzeige
AW: MsgBox wird zweimal ausgeführt
28.12.2017 15:45:06
Peter
Hallo Nepumuk
vielen dank für die antwort, jetzt funktioniert es einwandfrei..
Das mit dem CB_1 = False wusste ich nicht aber macht sinn.
Ja ich musste die Tabelle etwas ausdünnen deswegen sieht es Sinnlos aus. Mein Ziel das das Kontrollkästchen nur anhackbar ist wenn in einer anderen TextBox auch Inhalt ist.
Vielen Dank allen
Gruß Sigi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige