Sub ZeilenLöschen()
Dim rng As Range, AV, lastRow&, I&, Suchtext$
Set rng = Range("A1:C1000")
AV = rng.Value
lastRow = rng(rng.Rows.Count, 1).End(xlUp)
Suchtext = "zeile mit müll"
With AV
For I = lastRow To 1 Step -1
Spalte = 2
If InStr(1, .Cells(I, Spalte).Value, "Art der Veränderung") > 0 Then
rng.Rows(I).Delete
End If
Spalte = 4
If InStr(1, .Cells(I, Spalte).Value, "Betrag") > 0 Then
rng.Rows(I).Delete
End If
Spalte = 6
If InStr(1, .Cells(I, Spalte).Value, "Datum") > 0 Then
rng.Rows(I).Delete
End If
Next
End With
End Sub