Kein Makro bei Tabellenfilter

[Dorzen14]

Moin in die Runde:

Wie würde eine VBA-Zeile aussehen, die sagt, dass ein Makro nicht ausgeführt werden soll, wenn die Tabelle gefiltert ist? Geht das überhaupt?

[Mitness]

Grüß dich Dorzen14,

versuchs Mal so:

Code:

Sub Check_FilterMode()

If ArbeitsblattX.ListObjects("TabelleY").AutoFilter.FilterMode Then
MsgBox "Filter ist an - Makro bitte nicht ausführen."
Exit Sub
Else
MsgBox "Filter ist aus"
End If

End Sub

[Elex]

Hi

Gibt da sicher mehrere Möglichkeiten.

Code:

If ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count <> ActiveSheet.AutoFilter.Range.Cells.Count Then Exit Sub

Gruß Elex