Hallo Gabi,
Sub ZeilenLöschen()
Dim rng As Range, AV, lastRow&, I&, Suchtext$
Set rng = Range("A1:C1000") 'relevanter bereich
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 '2. Spalte deines Bereiches hier eintragen
If InStr(1, .Cells(I, Spalte).Value, "Art der Veränderung") > 0 Then
rng.Rows(I).Delete
End If
Spalte = 4 '4. Spalte deines Bereiches hier eintragen
If InStr(1, .Cells(I, Spalte).Value, "Betrag") > 0 Then
rng.Rows(I).Delete
End If
Spalte = 6 '6. Spalte deines Bereiches hier eintragen
If InStr(1, .Cells(I, Spalte).Value, "Datum") > 0 Then
rng.Rows(I).Delete
End If
'### und beliebig mehr...
Next
End With
End Sub
Teile des Codes habe ich von Till übernommen.
Gruß Detlev
|