Schleife: Range loeschen falls Reihe leer
29.11.2005 05:29:07
Gnilk
ich wuerde gerne aus einer Tabelle alle Zellen nach oben loeschen (Delete Shift:=xlUp) die keinen Wert haben. Ich habe das ganze schon mit For to versucht, aber ich glaube da muss eine Schleife her.
Das Problem ist naemlich, dass wenn mein Makro die Range nach oben geloescht hat, automatisch mit next i weitermacht. Dadurch wird nicht alles geloescht. Es beleibt immer noch ein Teil stehen. Ich haette gerne eine Schleife die in meinem Bereich alle Zellen nach oben loescht.
Hier mein Makro was ich bis dato habe:
For n = 2 To bcklgunt_i - 1
If Worksheets("DB").Range("E" & n & ":F" & n).Value = "" _
Then x.Worksheets("DB").Range("E" & 1 + n & ":F" & 1 + n) _
.Delete Shift:=xlUp
Next n
Vielen Dank im Voraus
Ciao
Gnilk