Jim möchte schnell erkennen können, welche Filterkriterien in einem AutoFilter angewendet wurden. Es fällt ihm schwer zu sagen, auf welche Spalten Filter angewendet werden (die geringfügige Änderung der Dropdown-Pfeilfarbe von Schwarz nach Blau ist kaum erkennbar), daher wäre eine andere Methode, um festzustellen, wo ein Filter angewendet wird, hilfreich.

Das Fehlen eines Kontrasts zwischen den schwarzen und blauen Dropdown-Pfeilen in einer gefilterten Spalte ist keine ungewöhnliche Beschwerde. Tatsächlich wurde genau dieses Problem in einer anderen Ausgabe von ExcelTips behandelt. (Sie können auf der ExcelTips-Website nach dem Ausdruck „Dropdown-Pfeilfarben“ suchen, um einen praktischen Tipp in dieser Hinsicht zu erhalten.)

Wenn Sie tatsächlich wissen möchten, welche Kriterien auf eine Spalte angewendet werden, interessiert Sie ein kleines Makro, mit dem die Kriterien in einer anderen Zelle platziert werden:

Function DispCriteria(Rng As Range) As String     Dim Filter As String

Filter = ""

On Error GoTo Done     With Rng.Parent.AutoFilter         If Intersect(Rng, .Range) Is Nothing Then GoTo Done         With .Filters(Rng.Column - .Range.Column + 1)

If Not .On Then GoTo Done             Filter = .Criteria1             Select Case .Operator                 Case xlAnd                     Filter = Filter & " AND " & .Criteria2                 Case xlOr                     Filter = Filter & " OR " & .Criteria2             End Select         End With     End With Done:

DispCriteria = Filter End Function

Dies ist eine benutzerdefinierte Funktion, die Sie in Ihrem Arbeitsblatt verwenden können. Wenn Sie beispielsweise die Filterkriterien kennen möchten, die auf Spalte C angewendet wurden, können Sie in einer Zelle Folgendes verwenden:

=DispCriteria(C:C)

Wenn Sie möchten, können Sie einfach auf die Kopfzelle der zu filternden Spalte verweisen. Wenn der Header (derjenige, zu dem AutoFilter den Dropdown-Pfeil hinzufügt) beispielsweise Zelle C3 ist, können Sie Folgendes verwenden:

=DispCriteria(C3)

Die von der Funktion angezeigten Kriterien sind die tatsächlich von AutoFilter verwendeten. Wenn Sie beispielsweise ein Filterkriterium verwenden, das „Top 10“ lautet, übersetzt Excel dieses zum Zeitpunkt der Anwendung in „> = 214.3281932“ (der Wert hängt von Ihren Daten ab). Es ist der Formelfilter, der von der DispCriteria-Funktion zurückgegeben wird, nicht der Wortlaut „Top 10“.

Die Funktion basiert auf einer von Microsoft MVP Stephen Bullen erstellten Funktion.

Das Makro wurde an verschiedenen Stellen veröffentlicht und ist auf der Website von John Walkenbach hier zu finden:

http://www.j-walk.com/ss/excel/usertips/tip044.htm

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2891) gilt für Microsoft Excel 97, 2000, 2002 und 2003.