Einen bestimmten gefilterten Wert anzeigen

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