ich brauche ein Macro in dem Zeile J1:J11500 auf den Inhalt "Erledigt" überprüft wird.
Jede Zeile in der in Zelle J "Erledigt zuu finden ist soll anschliessend gelöscht werden.
Ist so etwas möglich?
Vielen Dank schonmal.
David
Sub KillErledigt()
Dim LastRow As Integer
Dim i As Integer
LastRow = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row 'letzte Zeile in J ermittlen
For i = LastRow To 1 Step -1
If Cells(i, 10) = "Erledigt" Then
ActiveSheet.Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next i
End Sub
Steht in der Zelle nur "Erledigt" oder noch mehr?