Hi Lokimo,
Dass du Zeilen löschen willst hast du bislang nicht geschrieben. In dem Fall solltest du die Schleife von unten nach oben ausführen. Mit For Each Next geht das glaub ich nicht. Also nehmen wir For To Next. Probier mal.
For ar = Selection.Areas.Count To 1 Step -1
For rw = Selection.Areas(ar).Rows.Count To 1 Step -1
Selection.Areas(ar).Rows(rw).EntireRow.Delete
Stop
Next rw
Next ar
Nach jeder gelöschten Zeile hält das Makro bei Stop an, sodass du dir das Ergebnis ansehen kannst. Um weiterzulaufen musst du dann wieder F5 drücken. Kannst Stop aber auch rausnehmen Dann werden alle Zeilen auf einmal gelöscht.
Gruß Mr. K.
|