Einen bestimmten gefilterten Wert anzeigen
22.01.2016 14:09:16
Fra
ich habe folgende Funktion, mit der ich mir die alle gesezten Filter aus Autofilter anzeigen lassen kann:
Function FilterKriterien1(rng As Range) As String
Application.Volatile
Dim Filter As String
Dim f As Filter
For Each f In rng.Parent.AutoFilter.Filters
If f.On Then
Filter = Filter & Mid(f.Criteria1, 2)
Select Case f.Operator
Case xlAnd
Filter = Filter & " UND " & f.Criteria2
Case xlOr
Filter = Filter & " ODER " & f.Criteria2
End Select
Filter = Filter & ", "
End If
Next
Filter = Filter & ", "
FilterKriterien1 = Left(Filter, Len(Filter) - 2)
strFiltername = Left(Filter, Len(Filter) - 2)
End Function
Wenn ich jetzt mehr als einen Filter setze, werden alle gesetzten Filte nacheinander durch ein Komma getrennt angezeigt.
Ich möchte die Funktion dahingegen erweitern, das ich nur den Filter der z.B. dritten gefilterten Spalte anzeige oder nur den Filter der Spalte C, egal ob ich weitere Filter gestzt habe oder nicht.
Ich habe das Excel angehängt.
Habt Ihr ne Idee ?
Lieben Gruß und Danke
Fra