Office: AutoFilter-Pfeile ausblenden, aber Autofilter aktiv lassen?

Auf einem Tabellenblatt wird mittels einer VBA-Routine ein AutoFilter gesetzt, um Zeilen auszublenden, die in einer bestimmten Spalte leer sind. Ich würde nun gern die AutoFilter-Dropdownpfeile komplett ausblenden. Mit

ActiveSheet.Range(pstrcFilterBereich).AutoFilter Field:=2, Criteria1:="", VisibleDropDown:=False

werden allerdings nur die Dropdownpfeile für die gefilterten Felder ausgeblendet.

Als Hilfskonstruktion blende ich derzeit die Zeile, die den Autofilter enthält, aus. Diese Lösung gefällt mir nicht so recht, zumal ich dadurch eine zusätzliche Zeile benötige, in der die Beschriftungen nochmal stehen, die in der AutoFilter-Zeile stehen, wegen des Ausblendens derselben aber nicht mehr sichtbar sind.

Gibt es einen anderen Weg?

:)

 

Moin, Carsten,

Code:

 

Hallo Carsten,

du musst auch die Spalten abklappern, nach denen nicht gefiltert wird. Hier mal ein Beispiel. Ich habe eine Tabelle von A1:C10 mit Überschriften in Zeile 1. Die Daten werden nach Spalte 2 gefiltert, wobei alle Zeilen angezeigt werden, die in Spalte 2 Werte größer 1 haben. In den anderen Spalten wird nur der DropDownPfeil ausgeblendet:

Code:

 

\@jinx: Deinen Beispielcode muss ich aber noch um die entsprechenden Filterkriterien für die Spalten, nach denen gefiltert werden soll, ergänzen, oder?

@Ingolf: Funktioniert!

Euch beiden danke für die Tipps!