|
Hallo
Ich hab folgendes Problem:
Die meisten Zellen, wo mal etwas drin gestanden hat sind ja nicht leer auch wenn dort nichts mehr drin steht
Um diese Zellen leer zu bekommen benutze ich diesen Code:
Sheets("Tabelle1").Select
Application.ScreenUpdating = False
Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = False
Dieses beispiel ist für die Spalte A
Es sucht den letzten Wert in der Spalte und leert von dort alle dort drunter liegenden Zellen vollständig
Leider bekomm ich ständig bei dieser Zeile:
--> Range("a:a").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
einen Laufzeitfehler
Woran könnte das liegen?
|