Thema: Sicherheitsabfrage, bevor Befehl ausgeführt wird

Home

Gruppe

Allgemein

Problem

Ich habe ein Makro erstellt, das die Inhalte eines Blattbereichs löschen soll. Wie kann ich vor dem Löschen eine Sicherheitsabfrage aufrufen?

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Abfrage()
    If MsgBox( _
      prompt:="Löschen?", _
      Buttons:=vbQuestion + vbYesNo _
      ) = vbNo Then Exit Sub
    Range("A1:E16").ClearContents
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Meldung

Was bedeutet diese Meldung und warum gibt es sie	Start Userform Fehlermeldung
'Run' & 'IWshShell3' Fehlermeldung VBA	VBA - Suchfunktion - Fehlermeldung
Drucker nicht vorhanden, dann Meldung	Makro 4.0 Meldung beim Dateiaufruf ausschalten
Meldungen beim aufmachen	Eingabemeldung auch für mehrere Zellen?
Warnmeldung bei "Summe größer als x"	Dateien öffnen, Update-Meldung ausschalten
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Fehlermeldung bei Validation	Fehlermeldung
Rückmeldung aus Outlook	Fehlermeldung erzeugen
Nach Fehlermeldung nächste Anweisung	Fehlermeldung beim Öffnen von Excel: VBA-Projekt
Fehlermeldung bei Inputbox-Abbruch	Fehlermeldung in Schleife mit Controls
Schwere Excel-Fehlermeldung erzeugen	Störmeldungen in Excel aufzeichnen
Fehlermeldung	UCase mit Fehlermeldung
Bei Löschung Fehlermeldung Typen unverträglich	Pivot Tabelle Fehlermeldung
Bei Fehlermeldung Events wieder einschalten	Fehlermeldung seit Umstellung auf 2007
Eigene Meldung wenn keine Daten im Zischenspeicher	Pivot - Fehlermeldung not enough memory
Fehlermeldung bei Format(Wert, "dddd")	Fehlermeldung 2147024882 (8007000E)
Zellbereich vergleichen & Zellbezug od. Meldung au	Fehlermeldung bei Übergabe Listeninhalt an Userfor
Meldung im Freigabemodus	Fehlermeldung
Hinweismeldung vor Ablaufdatum	Eingabemeldung Gültigkeit
Sicherheitsmeldung beim Zugriff auf Access	allgemein
Szenarios Arrey Fehlermeldung	Wenn-Abfrage und MsgBox-Meldung
"Wartemeldung" anzeigen	Meldung unterdrücken
Fehlermeldung	Fehlermeldung wenn Blattschutz aktiv
Outlook Meldung in Excel	Bei Fehlermeldung #NV den Wert 0,00 ausgeben
Einträge (ohne enthaltene Fehlermeldungen) zählen	Verknüpfungsmeldung unterdrücken