Messagebox
30.08.2017 15:46:28
Spuler
Ich brauche kurz eure Hilfe. Eigentlich ein einfaches Thema...
Folgende Prozedur sollte ausgeführt werden: Wenn CheckBox11 aktiviert wird, soll eine Meldung aufgehen, welche etwas fragt. Wenn "Ja" --> Sub xxx starten; wenn "Nein" --> Checkbox11 deaktivieren und msgbox muss ausgeblendet werden.
Eigentlich funktoniert's, jedoch wird die msgbox erst nach einem nochmaligem Klick auf "Nein" geschlossen.
Könnt ihr mir helfen?
Grüsse
Marcel
Private Sub CheckBox11_Click()
If MsgBox("Wollen Sie alle Stützpunktfahrzeuge aufbieten?", vbYesNo + vbExclamation, "Aufgebot _
Stützpunkt") = vbYes Then
Call SStützpunktUnterstützung 'Modul 8
Else
Me.CheckBox11.Value = False
End If
End Sub