Folgendes Problem: Ich habe eine lange Spalte (ca 1800 Zeilen), in der sich mehrere leere Zellen befinden und nur einiege mit Werten.
Ich möchte erreichen, dass die leeren Zellen gelöscht werden und die mit den Werten sich nach oben verschieben.
Hab folgendes probiert:
dim r as range
set range("bereich")
dim i as integer
for i = 1 to r.rows.count
if r(i,1) = 0 then
r(i,1).delete
else
end if
next i
Es dauert aber ewig und ich muss das Makro mind 6-7 ausführen, bis alle Einträge "oben" sind.
Was ist falsch?