Blätter löschen EIN mal Warnung
10.09.2014 15:12:37
Björn
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
Anzeige