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?Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen