Weiß, zwar immer noch nicht wozu du das brauchst. Aber hier mal ein entsprechender Code. Dieser gehört in das Tabellenmodul wo du die Tabelle hast. Der Code geht davon aus, dass es sich um eine Intelligente Tabelle handelt.
Private Sub Worksheet_Calculate()
If FilterActive Then
Cells(Rows.Count, "K").End(xlUp).Offset(-2, 1).ClearContents
Cells(Rows.Count, "K").End(xlUp).Offset(0, 1) = "x"
Else
Cells(Rows.Count, "K").End(xlUp).Offset(0, 1).ClearContents
Cells(Rows.Count, "K").End(xlUp).Offset(-2, 1) = "x"
End If
End Sub
Function FilterActive() As Boolean
Dim flt As Filter
For Each flt In Me.ListObjects(1).AutoFilter.Filters
If flt.On Then
FilterActive = True
Exit For
End If
Next flt
End Function
Gruß Mr. K.