Hallo,
ich habe eine große Tabelle. In dieser gibt es in einer Spalte verschiedene Einträge. Ich möchte nun per Makro alle Zeilen löschen, welche nicht den entsprechenden Eintrag haben. Ich habe es nun soweit hinbekommen, dass ich mittels Schleife den Eintrag überprüfe und gegebenenfalls die Zeile lösche. Mein Problem besteht nun darin, dass die gelöschte Zeilennummer so oft durchlaufen werden müsste, bis der richtige Eintrag auftaucht. Erst dann dürfte die nächste Zeile überprüft werden.
Aktuell sieht das so aus:
EndeA = Worksheets("HRO - Liste").Cells(Rows.Count, 1).End(xlUp).Row + 1
For I = EndeA To 2
If Worksheets("HRO - Liste").Cells(I, 2).Value "APPR" Then
Rows(I).Delete Shift:=xlUp
End If
Next I