Peter, Autofilteranzeige,mehr als 2. Krtierium
10.03.2016 10:16:44
Peter
Ich habe unten stehenden Code aus dem Netz, dieser funktioniert jedoch nur wenn nicht mehr als zwei Filterkriterien selektiert wurden. Es wird mit bedingter Formatierung angezeigt in welcher Spalte ein Filter aktiv ist.
Wie müsste ich den Code anpassen, damit dieser auch dann funktioniert, wenn mehr als zwei Filterkritieren gefilter sind?
Public Function AF_KRIT(Bereich As Range) As String
'Als Bezug dient eine Zelle der entsprechenden Spalte: AF_KRIT(A4)
'- verwende in der Bedingten Formatierung unter 'Formel ist' die folgende Formel:
'Code: =AF_Krit(A4)""
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