Das kommt oft vor: zu diversen Zwecken möchte man Spalten oder
auch Zeilen automatisch aus- und wieder einblenden. Auch den
Autofilter benötigt man manchmal nur zB. für einen
Ausdruck - und sei es nur, um Papier zu sparen.
Warum auch immer, mit einem kleinen Makro lässt sich
das vollkommen automatisieren.
In diesem Beispiel wird erst einmal geprüft, ob das
aktive WorkSheet das erste Blatt der Mappe ist. Wenn nicht,
kommt eine Meldung (MsgBox) und das
Makro wird abgebrochen (Exit Sub).
In der Subroutine 1 "Filter_setzen()"
muss vorab gecheckt werden, ob der Autofilter bereits gesetzt
ist, sonst kann es zu unerwünschten Erscheinungen kommen.