Wie Filterkriterien anzeigen in einer Zelle über der Filterauswah.

08/09/2008 - 07:10 von Ratlos in Kölle | Report spam
Ich habe größere Tabellen mit >40 Spalten in denen ich ca. 15 Filter gesetzt
habe. Der Übersicht halber möchte ich das jeweilige Suchkriterium einer
gefilterten Spalte in einer Zelle oberhalb der Werte ausgeben.
 

Lesen sie die antworten

#1 thomas.ramel
08/09/2008 - 14:21 | Warnen spam
Grüezi Ratlos

On 8 Sep., 07:10, Ratlos in Kölle <Ratlos in
Kö wrote:

Ich habe größere Tabellen mit >40 Spalten in denen ich ca. 15 Filter gesetzt
habe. Der Übersicht halber möchte ich das jeweilige Suchkriterium einer
gefilterten Spalte in einer Zelle oberhalb der Werte ausgeben.



Kopiere die folgenden Zeilen in ein Modul deiner Mappe und verwende
dann die neue Funtkion jeweils in einer Zelle oberhalb deiner
Spaltenüberschreiften:

Public Function AF_KRIT(Bereich As Range) As String
'Liest die Kriterien des Autofilters aus und listet diese in einer
Zelle
'Als Bezug dient die erste Zelle nach dem Spaltentitel: AF_KRIT(A2)

Dim s_Filter As String

s_Filter = ""
On Error GoTo Ende
With Bereich.Parent.AutoFilter
With .Filters(Bereich.Column - .Range.Column + 1)
s_Filter = .Criteria1
Select Case .Operator
Case xlAnd
s_Filter = s_Filter & " UND " & .Criteria2
Case xlOr
s_Filter = s_Filter & " ODER " & .Criteria2
End Select
End With
End With
Ende:
AF_KRIT = s_Filter
End Function


Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen