nächsten 1000 Zeilen löschen
31.05.2005 12:27:33
Anton
ich habe per Makro Daten von verschiedenen Blättern zusammenführen lassen (je 300 Zeilen).
In Spalte A sind es jetzt 167 Einträge.
In Spalte E, H und I habe ich einen Überhang, den ich per Makro abschneiden lassen will.
(Es soll anschließend nach diesen Spalten sortiert werden.)
Ich suche mir die letzte Zelle in Spalte A:
Sub Letzte_zelle()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
und möchte die nächsten 1000 Zeilen (müsste locker reichen) löschen lassen.
Das hier funktioniert nicht:
Sub c2_rest_löschen()
Range("A:A").Select
For Each cell In Selection
If cell.Value = "" Then cell.EntireRow.Delete
Next
End Sub
Wer kann mir bitte helfen?
Dank Euch schon jetzt...
Servus,
Anton