In diesem Beispiel wird der Filterstatus von Sheet1 in einem Meldungsfeld angezeigt.
If Worksheets("Sheet1").FilterMode = True Then MsgBox "Filter mode is on" Else MsgBox "Filter mode is off" End If