ich nutze folgende Funktion, um mir über einer Liste mit einem Autofilter
das genutzte Filterkriterium anzeigen zu lassen.
=Autofilterkriterium(a3) in Zelle a2
(Wennn die Liste bei a3 beginnt)
Das funktioniert auch blendend. Nur wenn ich in der Liste einen benutzerdefinierten
Autofilter auf ein Datum einstelle
z..B größer als 01.01.2012
zeigt mir die Funktion / Formel den Wert
>40909
Kann man die u.a. Funktion so ändern, daß er mir
>01.01.2012
anzeigt ?
Freu mich auf einen Tip
Gruß
Stef@n
hier die Funktion
Function FilterKriterien(Rng As Range) As String
Dim Filter As String
Application.Volatile
Filter = ""
On Error GoTo Finish
With Rng.Parent.Autofilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " UND " & .Criteria2
Case xlOr
Filter = Filter & " ODER " & .Criteria2
End Select
End With
End With
Finish:
FilterKriterien = Filter
End Function