Vor dem Schliessen Blätter löschen
12.11.2004 17:14:21
Gregor
Folgendes Makro klappt in einem Modul bestens. Wenn ich dieses in "Diese Arbeitsmappe" kopiere (
Private Sub Workbook_BeforeClose(Cancel As Boolean) ) funktioniert es nicht.
Ziel ist, die Arbeitsmappe beim Schliessen mit Ausnahme der definierten Blätter zu speichern und zu schliessen. Was mache ich falsch?
Sub löschen()
Dim sh As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each sh In ThisWorkbook.Worksheets
If sh.Name <> "Kompositionen" And sh.Name <> "Makros Filter" And _
sh.Name <> "Übersichtskarte" And sh.Name <> "Bahnhöfe-Strecken" And _
sh.Name <> "Vorlage" And _
ThisWorkbook.Worksheets.Count >= 1 Then sh.Delete
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = False
End Sub
Vielen Dank
Gregor