Wenn Sie den Filter in einer Excel-Arbeitsblattliste einschalten oder eine benannte Excel-Tabelle erstellen, wird in jeder Zelle der Überschriftenzeile automatisch ein Dropdown-Pfeil angezeigt. Wenn Sie diese nicht benötigen, können Sie die Pfeile im Excel-AutoFilter ausblenden.
Excel-AutoFilter-Pfeile
In der Überschriftenzeile zeigt eine AutoFilter-Pfeilschaltfläche ein Filtersymbol an, wenn Sie diese Spalte gefiltert haben. Wenn Sie auf einen Pfeil mit einem Filtersymbol zeigen, zeigt ein Popup-Tooltip die Filterkriterien an.
Im folgenden Screenshot wurde die Spalte Kunde so gefiltert, dass 3 bestimmte Kunden angezeigt werden – FoodMart, MegaStore und VegiVille.
Pfeiloptionen für AutoFilter
Für einen AutoFilter haben Sie drei Optionen für die Pfeildarstellung:
- Lassen Sie alle Pfeile anzeigen
- Entfernen Sie den AutoFilter, wodurch alle Pfeile entfernt werden
- Verwenden Sie die Programmierung, um einen oder mehrere der Pfeile auszublenden.
Den AutoFilter manuell entfernen
Für eine Arbeitsblattliste oder eine benannte Tabelle können Sie den AutoFilter manuell ein- und ausschalten, wodurch auch die Pfeilschaltflächen ein- oder ausgeblendet werden.
- Klicken Sie auf eine beliebige Zelle im gefilterten Bereich
- Klicken Sie im Excel-Ribbon auf die Registerkarte Daten
- Klicken Sie auf die Schaltfläche Filter.
AutoFilter-Pfeile mit Makro ausblenden
Bevor Listen und benannte Tabellen zu Excel hinzugefügt wurden, konnte es nur einen AutoFilter pro Arbeitsblatt geben.
Jetzt können Sie zusätzlich zum AutoFilter für ein einzelnes Arbeitsblatt mehrere benannte Tabellen auf ein Blatt setzen. Jede dieser Tabellen hat ihre eigene AutoFilter-Eigenschaft.
Unten finden Sie Code-Beispiele für das Ausblenden von Pfeilen in einem Listen-AutoFilter und einem Arbeitsblatt-AutoFilter. Weitere AutoFilter-VBA-Beispiele finden Sie auf meiner Contextures-Website:
- Excel-Arbeitsblatt-AutoFilter VBA
- Excel-Liste-AutoFilter VBA
Listen-AutoFilter-Pfeile mit VBA ausblenden
Wenn Sie einen oder mehrere Pfeile sichtbar lassen, aber die anderen ausblenden möchten, können Sie ein Makro verwenden.
In diesem Beispiel wird nur die zweite Spalte mit einem Pfeil versehen, alle anderen Pfeile werden ausgeblendet.
Dieser Code ist für eine benannte Tabelle gedacht, die ihre eigene AutoFilter-Eigenschaft hat. Es kann mehrere benannte Tabellen auf einem Arbeitsblatt geben, und die AutoFilter-Einstellungen jeder Tabelle können unterschiedlich sein.
Sub HideArrowsList1()'hides all arrows except list 1 column 2Dim Lst As ListObjectDim c As RangeDim i As IntegerApplication.ScreenUpdating = FalseSet Lst = ActiveSheet.ListObjects(1)i = 1For Each c In Lst.HeaderRowRange If i <> 2 Then Lst.Range.AutoFilter Field:=i, _ VisibleDropDown:=False Else Lst.Range.AutoFilter Field:=i, _ VisibleDropDown:=True End If i = i + 1NextApplication.ScreenUpdating = TrueEnd Sub
Arbeitsblatt-AutoFilter-Pfeile mit VBA ausblenden
Um die Pfeile für den AutoFilter einer Arbeitsblatt-Tabelle auszublenden, ist der Code etwas anders.
Es kann nur einen Arbeitsblatt-AutoFilter auf einem Arbeitsblatt geben, und in diesem Beispiel beginnt die gefilterte Liste in Zelle A1.
Die folgende Prozedur blendet die Pfeile für alle Spalten außer Spalte B aus.
Sub HideArrows()'hides all arrows except column 2Dim c As RangeDim i As Integeri = Cells(1, 1).End(xlToRight).ColumnApplication.ScreenUpdating = FalseFor Each c In Range(Cells(1, 1), Cells(1, i)) If c.Column <> 2 Then c.AutoFilter Field:=c.Column, _ Visibledropdown:=False End IfNextApplication.ScreenUpdating = TrueEnd Sub
Verwenden Sie die Makros zum Ausblenden der Pfeile
Um diese Makros zu verwenden, kopieren Sie sie in ein reguläres Code-Modul in Ihrer Arbeitsmappe. Eine Anleitung finden Sie hier.
Sie müssten den Code nur einmal ausführen, nachdem Sie die gefilterte Liste eingerichtet haben. Um den Code auszuführen,
- Klicken Sie in der Excel-Leiste auf die Registerkarte „Ansicht“
- Klicken Sie ganz rechts auf der Registerkarte auf den Befehl „Makros“ (klicken Sie auf das Bild oben auf dem Befehl)
- In der Liste der Makros klicken Sie auf das Makro, das Sie ausführen möchten
- Klicken Sie auf die Schaltfläche „Ausführen“.