habe folgendes Problem:
In meiner Tabelle stehen in jeder Zeile irgendwelche Formeln.
Aber nicht alle produzieren sichtbare Werte. Einige Zeilen bleiben beim Blick auf die Tabelle leer. Durch anschließendes kopieren und Werte einfügen auf der ganzen Tabelle sind die Zellen dann wirklich leer. Zumindest ist in der Bearbeitungszeile auch nichts mehr zu sehen.
Dann versuche ich mit folgendem Makro die leeren Zeilen verschwinden zu lassen.
Sub LeereZeilenLöschen()
Dim i%, Alle%
Application.ScreenUpdating = False
Alle = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For i = Alle To 1 Step -1
Do While Application.CountA(Rows(i)) = False
Rows(i).EntireRow.Delete
Loop
Next i
End Sub
Die oben genannten Zeilen werden aber nicht als leer anerkannt und folglich auch nicht gelöscht. Kann mir jemand sagen, was ich ändern muss ?? (Das Makro ist nicht von mir.)
Gruß Michael