Löschen von Worksheets zwecks Initialisierung
18.08.2008 12:31:09
Worksheets
häufig besteht der Bedarf, ein Worksheet vor Programmstart, bis auf die überschriften zu löschen. Grundsätzliche Bedingung ist - kein Select des Sheets darf nötig sein.
Ich benutze hierfür:
Sheets(ARBEITSBLATT).Range(loeschbereich).ClearContents
Leider hat diese Methode einen riesen Nachteil, denn wenn jemand einen Auto-Filter nachträglich einbaut und eine Selektion stehen lässt, werden alle nicht selektierten nicht gelöscht!
Ein sequentielles löschen jeder Zeile, würde die Lösung bringen, jedoch ist das viel zu langsam.
- a) Gibt es anstatt .ClearContents ein Werkzeug das auch die verdeckten Zeilen löscht?
- b) Notlösung: Eine Funktion, die abfragt ob ein Autofilter vorhanden ist, und ihn auf alles Anzeigen schaltet
- c) oder zur variante b) wenn er ihn nicht auf alles Anzeigen schalten kann, dann eben den Auto-Filter ganz raus werfen.
Gruß Eddie