Herbers Excel/VBA-Archiv

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

Blätter löschen EIN mal Warnung

• Blätter löschen EIN mal Warnung von Björn vom 10.09.2014 15:12:37
• AW: Blätter löschen EIN mal Warnung - von Rudi Maintaire am 10.09.2014 15:15:58
  • [Gelöst] Blätter löschen EIN mal Warnung - von Björn am 10.09.2014 15:20:35

Betrifft: Blätter löschen EIN mal Warnung von: Björn
Geschrieben am: 10.09.2014 15:12:37

Hallo,
ich habe folgenden Code um bei Klick alle Blätter zu löschen die ein Kriterium erfüllen.

Sub BlaetterLoeschen()
Dim ws As Worksheet

Application.DisplayAlerts = True
For Each ws In Worksheets
  If Left(ws.Name, 1) = "T" Then ws.Delete
Next
Application.DisplayAlerts = False
End Sub

Läuft soweit gut, allerdings gibt er entweder gar keine Meldung aus, wenn "False" oder halt bei jedem Blatt. Ich hätte gerne nur einmal die Meldung für den gesamten Löschvorgang. Wie geht das, dass der nicht jedes mal wieder bei Alerts anfängt?

Grüße,
Björn

Betrifft: AW: Blätter löschen EIN mal Warnung von: Rudi Maintaire
Geschrieben am: 10.09.2014 15:15:58

Hallo,

Sub BlaetterLoeschen()
  Dim ws As Worksheet
  If MsgBox("Wirklich?", vbYesNo, "Blätter löschen") = vbYes Then
    Application.DisplayAlerts = False
    For Each ws In Worksheets
      If Left(ws.Name, 1) = "T" Then ws.Delete
    Next
    Application.DisplayAlerts = True
  End If
End Sub

Gruß
Rudi

Betrifft: [Gelöst] Blätter löschen EIN mal Warnung von: Björn
Geschrieben am: 10.09.2014 15:20:35

Cool, danke...

muss ich mir merken.

Schönen Tag noch,
Björn

Beiträge aus den Excel-Beispielen zum Thema "Blätter löschen EIN mal Warnung"