benutzerdefiniertes Autofilterkriterium auslesen.

Private Sub Worksheet_Deactivate()
Dim varKriterium1 As Variant
Application.DisplayAlerts = False
With Worksheets("Auswertung")
If .AutoFilterMode Then
With .AutoFilter.Filters(2)
If .On Then varKriterium1 = .Criteria1
End With
End If
End With
If varKriterium1 <> "" Then Range("h1").Value = varKriterium1 'Anwendungs-, oder objektdefinierter Fehler.
If varKriterium1 = "" Then Range("h1").Value = "Alle"
With Range("h1")
.Replace What:="=", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End With
Application.DisplayAlerts = True
End Sub