Office: neues Fenster öffnen

Hallo

Ich habe zum löschen aller alten Daten in meiner Tabelle einen Button erstellt, der alles löscht.

Damit man da nicht ausversehen alles löscht soll jetzt, bevor alles gelöscht wird eine Abfrage auf gehen,

"Willst du wirklich alles Löschen" "Ja/Nein",

Da ich in VBA noch nicht so fit bin, weiß ich nicht, wie ich so ein Fenster erstellen lassen kann.


Gruß Andy

 

Hallo!

Das geht z.B. so:

Code:

Sub test()
Dim Frage As Integer
Frage = MsgBox("Soll der Löschvorgang gestartet werden?", vbYesNo + vbQuestion, "Löschen")
If Frage <> 6 Then Exit Sub
'*****************************
'Hier steht deine Löschroutine
'*****************************
End Sub

 

Hi Schatzi


Hat funktioniert.

Vielen Dank.


Gruß Andy