Mehr als 2 Filterkriterien Autofilter auslesen
10.10.2018 09:24:32
Sebastian
mit dem u.a. Code können bis zu 2 Filterkriterien des Autofilters in einer Spalte ausgelesen werden. Dazu wird in eine Zelle die Funktion =AF_KRIT(Zelle) verwendet. Leider funktioniert der Code tatsächlich nur bis zu 2 Filterkriterien, bei mehr als 2 Kriterien funktioniert der Code nicht mehr.
Da ich diesbezüglich in VBA nicht fit genug bin, frage ich hier nach einer Erweiterungslösung.
Kann jemand helfen?
VG Sebastian
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