Thema: Abfrage mit msg Box | Herbers Excel-Forum

Hallo
Wie kann ich hier in meinem Makro eine Abfrage per MSG Box! einfügen über dem gefragt wird löschen ja nein. Bei ja sollen alle drei Tabellen gelöscht werden bei nein soll die Mappe geschlossen werden ohne zu löschen.
Ich finde in der Recherche leider nichts passendes zu diesem Thema

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Columns("A:A").ClearContents
Sheets("Tabelle2").Select
Columns("L:X").ClearContents
Sheets("Tabelle3").Select
Columns("B:C").ClearContents
Sheets("Tabelle1").Select
ThisWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Herzlichen dank für die Hilfe
Gruß Lisa

Hallo Lisa!
Würde sagen,so geht das:
(Musst aber bei der "If-Frage" noch angeben, ob du speichern willst oder nicht.)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Antwort = MsgBox("Möchten sie wirklich löschen?", vbYesNo, "Mein Text")
If Antwort = 7 Then
ThisWorkbook.Close SaveChanges:=True
Exit Sub
End If
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Columns("A:A").ClearContents
Sheets("Tabelle2").Select
Columns("L:X").ClearContents
Sheets("Tabelle3").Select
Columns("B:C").ClearContents
Sheets("Tabelle1").Select
ThisWorkbook.Close SaveChanges:=True
Application.ScreenUpdating = True
End Sub

Gruß Chris

Hallo,

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("Spalten löschen?", vbYesNo, "Frage") = vbYes Then
Application.ScreenUpdating = False
Sheets("Tabelle1").Columns("A:A").ClearContents
Sheets("Tabelle2").Columns("L:X").ClearContents
Sheets("Tabelle3").Columns("B:C").ClearContents
ThisWorkbook.Save
Application.ScreenUpdating = True
End If
End Sub

Gruß
Rudi

Das ging ja schnell!
Danke für die schnelle hilfe. Klappt super!
Lieben Gruß Lisa