folgendes Problem.
ich lasse in einem langen Makro mit DB-Zugriff etc. an Ende eine Teileregbnisse Gruppierung machen. danach stehen die Daten in denersten 100er von Zeilen, aber leider steht GESAMTEREGBNIS der Subtotals etwa in Zeile 14.000 (14.000), das ist natürlich für den Ausdruck verheerend. Grund dafür, warum sich Teilergebnisse so seltsam verhält kann ich nicht sagen.
Also brauche ich ein Stück VBA Code, dass die leeren 12.000 Zeilen zwischen den echten Daten am Anfang und der gesamtergebnis Zeile schnell löscht.
Ich habe das unten versucht, geht auch, ist aber viel zu lansgam, braucht 10 min. für 9.000 Zeilen.
Weiss jemand, wie das schneller geht? Etwa indem man einfach alle leeren Zeilen zwischen der letzten Datenzeile und der Zeile mit Gesamtergebnis komplett markiert (sind zusammenhängend) und auf einen Schlag löschen kann?
Code (zu lahm):
Sub LeereZeilenlöschen()
Sheets("Daten").Select
' bestimme letzte Zeile mit Daten
LetzteZeile = ActiveSheet.UsedRange.Rows.Count
' Application.ScreenUpdating = False
' gehen von letzter Zeile rückwärts bis oben durch.
For durchlauf = LetzteZeile To 3 Step -1
' Wenn Zeile leer, löschen
If Application.CountA(Rows(durchlauf)) = 0 Then Rows(durchlauf).Delete
Next durchlauf
End Sub
markus