Probleme mit Makro
17.02.2007 10:49:56
Ronaldo
ich habe eine Tabelle, in der sich über 10000 Daten befinden. Zwischen jeder Zeile ist eine leere Zeile, die per Makro gelöscht werden soll:
Sub LeereZeileLoeschen()
Dim i&
For i = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then Rows(i).Delete
Next
End Sub
Eigentlich läuft das Makro bei ca. 8000 Zeilen in ca. 1.Minute durch. Doch manchmal hängt es sich auf, so dass ich Excel erst schliessen und neu starten muss, damit es wieder ohne Probleme läuft. Hat einer von Euch evtl eine Erklärung hierfür ??
Gruss
Ronaldo