löschen von leeren Zellen mit Makro
31.07.2005 21:08:49
leeren
folgende Situation stellt mich vor ein Rätsel:
Ich habe eine Arbeitsmappe die fast bis Zeile 60000 und Spalte DI mit Daten gefüllt ist. Ich habe in dieser Tabelle aber einige Zellen gelöscht, die für mich derzeit nicht so wichtig sind. Leider sind nun in dieser Tabelle unregelmässig leere Zellen, die ich gerne gelöscht haben möchte (Zelle löschen und nach links aufrücken).
Mit folgendem Makro wollte ich das realieren.
Sub Leere_Zellen_loeschen()
Selection.SpecialCells(xlCellTypeBlanks).Delete _
Shift:=xlShiftToLeft
End Sub
Leider funktioniert es nicht bei meiner Tabelle, dh wenn ich den button klicke läuft ein paar Minuten die CPU auf 100% (ist ok bei der Datenmenge - denke ich) aber dann ändert sich die Tabelle nicht :-(
Das lustige ist, dass es bei einer Probe - Tabelle (ca 100 Zeilen + 30 Spalten) anstandslos geklappt hat.
Wo liegt mein Fehler? oder ist die Tabelle einfach zu umfangreich?!?!
Gruß
Shorty
Anzeige