Sicherheitsabfrage in Macro einbauen

Question

Hallo liebe Exelgemeinge
Mit einem Macro werden bei mir Daten aus einem Tabellenblatt gelöscht. Ich möchte gerne eine Sicherheitsabfrage einbauen die fragt, ob die Daten wirklich gelöscht werden sollen. Mein Macro lautet wie folgt:

Private Sub CommandButton1_Click()
Range("A8:M100").Select
Selection.ClearContents
Range("A1").Select
End Sub

Vielen Dank schon mal für Eure Hilfe

Gruß Horst

Answer 1

Hallo Horst,

Sub Test2()
If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + _
vbQuestion, "Löschabfrage ?") = 6 Then
MsgBox "Ja"
Else
MsgBox "Nein"
End If
End Sub

Gruß hajo

Answer 2

Danke hajo

Hat super funktioniert.

Gruß Horst