Vielen Dank
Die 1. Lösung klappt bestens, bei der 2. erhalte ich eine Fehlermeldung wegen überlappenden Markierungen.
Gibt es auch eine Lösung, um schnell Zeilen zu löschen mit einem bestimmten Wert/Ausdruck:
ZB
If Cells(i, 1) = 7 Then Rows(i).delete
oder
If Cells(i, 1) = "Gregor" Then Rows(i).delete
Danke und Gruss
Gregor