Ein Nachteil des AutoFilters ist die Tatsache, dass man aus der gefilterten Liste nicht ersehen kann, welche Kriterien aktuell eingestellt sind. Diese Information muß man direkt im AutoFilter unter "Benutzerdefiniert" nachsehen und dann bei Bedarf manuell nachtragen.

Mit folgendem Makro kann dieses Problem behoben werden:

Function FilterKriterien(Rng As Range) As String

Dim Filter As String
Filter = ""
On Error Goto Finish

With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then Goto Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Goto Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " UND " & .Criteria2
Case xlOr
Filter = Filter & " ODER " & .Criteria2
End Select
End With
End With
Finish:
FilterKriterien = Filter
End Function


Sobald die Eingabe des Listings abgeschlossen ist, steht eine neue Funktion mit der folgenden Syntax zur Verfügung:

=FilterKriterien(<Bezug>)

Dabei ist <Bezug> der Bezug auf eine beliebige Zelle in der Spalte, für die das AutoFilter-Kriterium angezeigt werden soll. Zum Beispiel für Spalte A:

=FilterKriterien(A3)

Als Ergebnis wird das aktuelle Auswahlkriterium im Klartext angezeigt. Zum Beispiel:

<500 oder >500 UND <1000

Wenn kein AutoFilter aktiviert ist bzw. kein Kriterium für die ausgewählte Spalte definiert wurde, liefert die Funktion einfach eine leere Zeichenkette als Ergebnis.