Sheets löschen händisch schneller als per Makro???
22.07.2003 17:58:55
Benjamin
mit folgendem Code lösche ich zwischen 5 und 15 Sheets einer Arbeitsmappe.
Leider dauert es bis zu 30 Sekunden. Kann mir jemand sagen woran soetwas liegen könnte?
Bin für jeden Tipp dankbar.
Danke im Vorraus.
Gruß Benjamin
Sub sheets_löschen()
Dim Arbeitsblatt As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Arbeitsblatt In Worksheets
If Arbeitsblatt.Name = "Tabelle1" Then
Arbeitsblatt.Visible = xlSheetVisible
Else: Arbeitsblatt.Delete
End If
Next Arbeitsblatt
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub