Schnelle Identifizierung angewandter AutoFilter (Microsoft Excel)
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.