In meinem Makro geht es darum , aus einer Liste gewisse Zeilen rauszufiltern und zu löschen. Dazu werden die zu behaltenden Zeilen mit 0 und die anderen Zeilen mit 1 markiert, dann durch einen Filter angezeigt und gelöscht. In diesem Makro habe ich den Befehl:
Range(Rows("2:2"), Rows("2000:2000")).Delete Shift:=xlUp
durch folgenden ersetzt
Range(Rows("2:2"), Rows("2:2").End(xlDown)).Delete Shift:=xlUp
Währen der alte Befehl sehr schnell ausgeführt wurde, steht beim Ausführen des neuen Befehls unten links während mehreren Sekunden: Berechnet Zellen: 100 %.
Dabei werden von etwa 100 Zeilen aus einer Liste mit 400 Zeilen und etwa 100 Spalten gelöscht.
Das erstaunliche dabei ist, dass es gar nichts zu berechnen gibt, da nur Werte und nirgendwo Formeln in der Liste sind.
Besten Dank und Gruss
Loca