MsgBox YesNo
12.01.2004 15:26:46
Glen
Ich habe ein Makro aufgezeichnet, dass bei klicken auf die Schaltfläche einen gewissen Bereich der mit Daten versorgt ist, löscht. Nun möchte ich gerne, dass eine MsgBox beim draufklicken des Löschbuttons vorher nochmals fragt:
"Daten entgültig löschen?" und dies mit ja (dann alles löschen) und nein (dann nichts löschen) bestätigt werden kann.
Erreicht habe ich mit meinen bescheidenen VBA-Versuchen lediglich, dass die MsgBox mit dem Text und den Ja,Nein Schaltflächen erscheint. Kann mir beim ergänzen der Funktion hier bitte jemand helfen?
So schaut ein mein Beispiel aus:
Sub Schaltfläche2_BeiKlick()
Dim Var As Integer
Var = MsgBox("Daten entgültig löschen?", (vbYesNo))
Range("A7:G20").Select
Range("G20").Activate
Selection.ClearContents
Range("A7").Select
End Sub
Grüsse
Glen