HERBERS Excel-Forum - die Beispiele

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