Wenn ich im Code Selection.AutoFilter schreibe wird der AutoFilter aus oder eingeschaltet. Wie kann ich ihn definitiv nur auschalten?
Bitte um Hilfe
Gerhard
Sub FILTERABFRAGE()
If ActiveSheet.FilterMode = True Then
MsgBox "Filter ist gesetzt"
Else
MsgBox "Kein Filter gesetzt"
End If
End Sub
Sub AUTOFILTER_AUS()
[AA1].Select
On Error GoTo FINI
Selection.AUTOFILTER
FINI:
[A1].Select
End Sub
Sub AutoFilterAus()
If Sheets(1).AutoFilterMode Then
Sheets(1).Rows("1:1").AutoFilter
End If
End Sub