Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Rückfrage vor CheckBox-Werteänderung

Gruppe

CheckBox

Problem

Bei CheckBox1 soll bei Verneinung der beim Anklicken gezeigten MsgBox-Frage der alte Wert beibehalten, bei CheckBox2 soll er geändert werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.

ClassModule: Tabelle1

Private Sub CheckBox1_MouseDown( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, ByVal Y As Single)
   If MsgBox("Aktion wirklich durchführen?", _
      vbQuestion + vbYesNo) = vbYes Then
      MsgBox "Führe Aktion durch!"
      CheckBox1.Value = Not CheckBox1.Value
   End If
End Sub

Private Sub CheckBox2_Change()
   If MsgBox("Aktion wirklich durchführen?", _
      vbQuestion + vbYesNo) = vbNo Then
      Exit Sub
   Else
      MsgBox "Führe Aktion durch!"
   End If
End Sub