löschen eines Sheets sehr langsam
10.07.2008 13:28:14
Heinzs
mit folgendem Code lösche ich ein bestehendes Sheet (beinhaltet auch Subtotals)
Sheets("Zusammenfassung Rls").Cells.ClearContents
Sheets("Zusammenfassung Rls").Cells.ClearFormats
Sheets("Zusammenfassung Rls").Select
Cells.Select
Selection.RemoveSubtotal
If ActiveSheet.AutoFilterMode Then Cells.AutoFilter
Das ganze dauert ca. 10 (!) Minuten auf einem Quad Prozessor PC (3 Mhz, 8 MB Ram). Diese Zeiten erhalte ich mit Excel2003 und Excel2007 im Kompatibilitätsmodus; Excel2007 im nicht-Kompatibilitätsmodus liefert noch längere Zeiten. Das Sheet neu anlegen möchte ich nicht. Gibt es eine bessere Möglichkeit?
Das ganze soll ein vorhandenes Sheet inkl. Subtotals komplett löschen.
Danke für Hilfe!
Heinz