Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Makro mit Abfrage

Betrifft: Makro mit Abfrage von: Gerd
Geschrieben am: 07.09.2004 20:50:44

Hallo zusammen
Ich benötige ein Makro welches die Zellen A2:A40;b2:b40;c2:c40 löscht
VOR dem Löschen soll eine Abfrage kommen "Möchten Sie die Felder wirklich LÖSCHEN" JA NEIN

Bei Ja Löschen; Bei Nein abbrechen

Kann mir jemand helfen

Vielen Dank im voraus
GERD

  


Betrifft: AW: Makro mit Abfrage von: PeterW
Geschrieben am: 07.09.2004 21:04:07

Hallo Gerd,

als Ansatz:
Sub wirklich_loeschen()
   Dim iAntwort As Integer
   iAntwort = MsgBox("Wirklich löschen?", vbYesNo, "Sicherheitsabfrage")
   If iAntwort = vbNo Then Exit Sub
   Range("A2:C40").ClearContents
End Sub

Gruß
Peter


  


Betrifft: AW: Makro mit Abfrage von: GERD
Geschrieben am: 07.09.2004 21:09:18

Hallo zusammen

DANKE für die schnelle Hilfe
Funktioniert
Gruß
GERD


 

Beiträge aus den Excel-Beispielen zum Thema "Makro mit Abfrage"