dank' der Funktion
Function Filterkriterium(Spalte As Long) As String
'Gibt Filterkriterium in Zelle aus. Eingabe: =Filterkriterium(1) etc (1=SpalteA)
Application.Volatile
If ActiveSheet.AutoFilter.Filters(Spalte).On Then
Filterkriterium = ActiveSheet.AutoFilter.Filters(Spalte).Criteria1
Else
Filterkriterium = "---"
End If
End Function
kann ich nun meine ausgewählten Filterkriterien in einer Zelle ausgeben. Nochmals Danke an das Forum und den Verfasser.
Nunmehr habe ich eine Frage zur Formatierung dieser Funktion:
Die gefilterte Spalte besitzt das Format "Datum", dass Filterkriterium lautet:
größer oder gleich 01.09.2005. Als Ergebnis der o.g. Funktion bekomme ich z.B. in "B1": ">=38596", was ja auch richtig ist.
Gibt es eine Möglichkeit - evtl. mit einer Hilfsspalte - dieses Ergebnis der Zelle "B1" im Format: "größer oder gleich 01.09.2005" auszugeben?
Bereits jetzt vielen Dank für die Hilfe.
Fritz Olbers :-)