Filterkriterium zurücksetzen
Micha
hab mal wieder etwas Excel-Kummer:
Mittels eines hier gefunden Makro:
Function AFCriteria(rngRange As Range) As String
Dim strFilter As String
strFilter = ""
With rngRange.Parent.AutoFilter
If Not Intersect(rngRange, .Range) Is Nothing Then
With .Filters(rngRange.Column - .Range.Column + 1)
If .On Then
strFilter = .Criteria1
Select Case .Operator
Case xlAnd
strFilter = strFilter & " Und " & .Criteria2
Case xlOr
strFilter = strFilter & " Oder " & .Criteria2
End Select
End If
End With
End If
End With
AFCriteria = strFilter
End Function
und der Funktion:
=WENN(ISTFEHLER(AFCriteria(XY));"";AFCriteria(XY))
lese ich das Filterkriterium einer Spalte aus. (Hat super funktioniert!)
Nachdem ich den Autofilter über mehrere Spalten gelegt habe, die Funktion in die jeweiligen Zellen geschrieben habe trat folgendes Problem auf.
Ich setze einen Filter - Kriterium wird angezeigt - ich hebe den Filter auf Kriterium - wird nich zurückgesetzt - ich setze einen neuen Filter - erstes Kriterium wird immer noch angezeigt.
Hat eine von euch nene Tipp?
Danke vorab, Gruß Micha