Nochmal leere Zellen löschen (@ AndreasS)
29.01.2004 18:26:42
Matthias
Sub Leere_Zellen_loeschen()
Application.ScreenUpdating = False
Range("B:B").SpecialCells(xlCellTypeBlanks).Delete _
Shift:=xlUp
Application.ScreenUpdating = True
End Sub
Es funktioniert (natürlich). Allerdings tritt folgendes Phänomen auf: Wenn ich es auf eine Spalte anwende, die ich aus dem ursprünglichen Blatt kopiere und mit "Inhalte einfügen" + "Werte" in ein neues Blatt einsetze - löscht das Makro nur die Zellen, die auch ursprünglich keine Inhalte (Formel) aufwiesen, obwohl die Zellen jetzt leer sind!?
Gruss, Matthias
P.S. Manuele, thx ebenfalls
Anzeige