Sitemap Fernwartung Impressum
Online Tipps & Tricks
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:
Freitag,Samstag,Montag
09:00 - 12:00
Montag bis Freitag
16:00 - 19:00

Telefon:
06723 889005

Telefax:
06723 889006

E-Mail:
info@tibe.de

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

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

 
Größere Kartenansicht

© 1996-2018 Tibe Services Tim Berlebach, Zangerstraße 22, 65375 Oestrich-Winkel,
Tel: 06723 889005, Fax: 06723 889006, E-Mail: info(at)tibe.de, WEB: www.tibe.de


Computer reparaturen, Notebook reparaturen (Laptop reparaturen), die Installation & Konfiguration von Telefonanlagen (TK-Anlagen, DSL-Router) sowie die Einrichtung von Netzwerken per LAN, WLAN und DLAN können auch direkt bei Ihnen vor Ort durchgeführt werden in Oestrich-Winkel, Hattenheim, Hallgarten, Mittelheim, Winkel, Oestrich, Erbach, Eltville, Walluf, Oberwalluf, Martinsthal, Rauenthal, Kiedrich, Hausen, Schlangenbad, Wambach,Geisenheim, Rüdesheim, Lorchhausen, Assmanshausen, Lorch, Espenschied, Johannisberg, Marienthal, Stephanshausen, Presberg, Aulhausen. Die Herstellung der Werkseinstellungen vom PC, Notebook, Tablet oder Netbook, die Datenrettung von defekten Festplatten, USB-Sticks, SD-Cards und anderer Flashspeicher oder die Entfernung von Schadsoftware (Viren, Trojaner, Malware etc.) kann nur hier in unserem Ladengeschäft in Oestrich-Winkel, Hallgarten erfolgen!