christopher

Es kann manchmal wichtig sein, dass ein Vorgang erst durchgeführt wird, wenn der Benutzer in einer Dialogbox auf "Ja" geklickt hat. Das ist in VBA glücklicherweise nicht schwierig.

Sub bestatige()
    If MsgBox("Möchten Sie das wirklich tun?", vbYesNo, "Bitte bestätigen!") = vbYes Then
        'Tue etwas
    End If
End Sub

Die Funktion MsgBox stellt genau diese Funktionalität zur Verfügung. Als ersten Parameter erwartet sie den Text der Dialogbox. Dann folgt eine VBA-Konstante. vbYesNo sorgt dafür, dass die Schaltflächen "Ja" und "Nein" angezeigt werden. vbaYesNoCancel würde noch zusätzlich die Schaltfläche "Abbrechen" anzeigen. Als dritten Parameter können Sie noch einen Titel für die Dialogbox angeben.

MsgBox gibt eine VBA-Kostante zurück, welche die angeklickte Taste repräsentiert. Sie können die Funktion also einfach auf vbYes oder vbNo prüfen.