Leere Zeilen entfernen.
15.03.2004 12:15:34
andif
habe ein Problem, und eine Tabelle.
Die Tabelle ist 250 Zeilen lang. In Zeile 251 stehen die Summen.
Jetzt sollen die Leerzeilen zwischen dem letzten Eintrag und den Summen entfernt werden.
Hiermit geht das super:
For i = 250 To 1 Step -1
If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
Next i
Wollte das Ganze etwas flexibler gestalten, da 250 Zeilen manchmal nicht reichen.
Hiermit geht das aber gar nicht:
Set b = Cells(Rows.Count, 5).End(xlUp).Offset(-1, 0)
For i = b To 1 Step -1
If Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
Next i
Weiß jemand wieso???
Danke schon mal
andif