Microsoft Excel

Herbers Excel/VBA-Archiv

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

Blätter löschen EIN mal Warnung

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"