Hallo M.O.
Ein Beispiel das Raum für Experimente bietet!
Sub Ausblenden_x_Autofilter()
Dim FilteredRange As Object
Worksheets("Tabelle1").Range("R:R").AutoFilter Field:=1, Criteria1:="x"
Set FilteredRange = Worksheets("Tabelle1").AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible)
Worksheets("Tabelle1").Range("R:R").AutoFilter
FilteredRange.Rows.Hidden = True
End Sub
Gruß Nighty