AutoFilter-Kriterien in Tabelle anzeigen (Excel)
01.01.2011

AutoFilter-Kriterien in Tabelle anzeigen
Versionen: Excel 97, 2000 und 2002

Über das Menü Daten-Filter-AutoFilter haben Sie bekanntlich die Möglichkeit, Listen in Ihren Tabellen mit wenig Aufwand auszuwerten. Nur wenige Mausklicks genügen beispielsweise, um in einer Kundenliste nur die Adressen aus einem bestimmten Postleitzahlenbereich anzuzeigen oder nur die Kunden auszuwählen, die einen bestimmten Umsatz erzielt haben. Ein Nachteil des AutoFilters ist die Tatsache, dass Sie aus der gefilterten Liste nicht ersehen können, welche Kriterien zurzeit eingestellt sind. Sie müssen diese Information direkt im AutoFilter unter "Benutzerdefiniert" nachsehen und dann bei Bedarf manuell nachtragen.

Der anerkannte englische Excel-Spezialist Stephen Bullen hat eine kleine VBA-Prozedur entwickelt, die dieses Problem behebt. Wir haben einige kleine Anpassungen vorgenommen und möchten Ihnen diese nützliche Funktion zur Verfügung stellen. Geben Sie dazu das folgende Listing im VBA-Editor ein:

Function FilterKriterien(Rng As Range) As String
'By Stephen Bullen
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 Sie die Eingabe des Listings abgeschlossen haben, steht Ihnen eine neue Funktion mit der folgenden Syntax zur Verfügung:

=FilterKriterien()

Dabei ist der Bezug auf eine beliebige Zelle in der Spalte, für die Sie das AutoFilter-Kriterium darstellen möchten. Zum Beispiel für Spalte A:

=FilterKriterien(A3)

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

<10000

oder

<10000 UND >20000

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.

Öffnungszeiten
Ladengeschäft:
Montag bis Donnerstag
15:00-18:00 Uhr
Freitag
8:30:13:00 Uhr
Samstag
nach Terminvereinbarung

Wir vereinbaren auch
gerne Termine über unsere
Öffnungszeiten hinaus.

Telefon:
06723 889005

Telefax:
06723 889006

E-Mail:
info@tibe.de

Adresse:
Tibe Services
Inhaber: Tim Berlebach
Zangerstraße 22
65375 Oestrich-Winkel /
Ortsteil Hallgarten

Öffentlicher Parkplatz:
Taunusstraße/
Ecke Zangerstraße

 Preisänderungen und Irrtümer bleiben vorbehalten.  Angebot gilt solange Vorrat reicht!