Option Explicit
Sub Zeilen_loeschen()
Dim wks As Worksheet: Set wks = ActiveSheet
Dim rng As Range
With wks
.ListObjects("Tabelle1").Range.AutoFilter Field:=2, Criteria1:="1", Operator:=xlFilterValues
.ListObjects("Tabelle1").Range.AutoFilter Field:=3, Criteria1:=Array("blau", "gelb", "rot"), Operator:=xlFilterValues
Set rng = .ListObjects("Tabelle1").DataBodyRange
Set rng = Intersect(rng, .ListObjects("Tabelle1").Range.SpecialCells(xlCellTypeVisible))
End With
rng.EntireRow.Delete
End Sub