Microsoft Excel

Herbers Excel/VBA-Archiv

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

Abfrage mit msg Box | Herbers Excel-Forum


Betrifft: Abfrage mit msg Box von: lisa
Geschrieben am: 11.12.2009 12:53:36

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

  

Betrifft: AW: Abfrage mit msg Box von: Christoph Leis
Geschrieben am: 11.12.2009 13:02:12

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


  

Betrifft: AW: Abfrage mit msg Box von: Rudi Maintaire
Geschrieben am: 11.12.2009 13:07:26

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


  

Betrifft: AW: cool danke! von: lisa
Geschrieben am: 11.12.2009 13:40:58

Das ging ja schnell!
Danke für die schnelle hilfe. Klappt super!

Lieben Gruß Lisa


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