Hallo zusammen,
ich habe eine Schleife, welche auf allen Reitern einer Arbeitsmappe die leeren Zeilen löschen soll. Mit dem nachfolgenden Code (hab ich mir zusammengesucht, nicht selbst programmiert) funktioniert es wunderbar - auf dem ersten Reiter. Die Schleife wird nachweislich auch auf allen folgenden Reitern durchlaufen, allerdings wird da nichts gelöscht..?! Ich bin ratlos.
For Each ws In ActiveWorkbook.Worksheets
i = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
For i = ws.Cells.SpecialCells(xlCellTypeLastCell).Row _
To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 _
Then Rows(i).Delete
If i Mod 100 = 0 Then Application.StatusBar = i
Next
Next ws
Danke für jede Hilfe, ich bin schon seit Tagen am Suchen und fast am Verzweifeln. :-(
|