Option Explicit
Private Sub ZeilenAusschneiden()
Dim V1, V2, V3, y&, x&
Dim rng As Range, Vals
Dim gesamt As Worksheet
Dim unbetrachtet As Worksheet
Set unbetrachtet = Sheets(2)
Set gesamt = ActiveSheet
With gesamt
Set rng = .Range(.Cells(.Rows.Count, 1).End(xlUp), .Cells(2, .Columns.Count).End(xlToLeft))
End With
Vals = rng.Value
For y = 1 To UBound(Vals)
V1 = Vals(y, 3)
V2 = Vals(y, 2)
V3 = Vals(y, 1)
If Not V1 Like "W*" And V1 <> "" Then
If V2 Like "ROTES*" _
Or V2 Like "TANKK*" _
Or V2 Like "FREMD*" And Not V3 Like "L9.0" And Not V3 Like "L9.2" And Not V3 Like "L9.3" Then
x = x + 1
rng.Rows(y).Cut unbetrachtet.Rows(x)
End If
End If
Next y
End Sub