wie kann ich , wenn jetzt in A1 bis A20 nur 5 Werte stehen, also zwischen den Werten freie Zellen sind,
zusammenrücken so das der 1. Wert in A1 und der 2.wert in A2 und so weiter steht (per makro)
Danke
| Sub LeereZellenLöschen() Dim rng As Range Set rng = Range("A1:A20") For i = rng.Row + rng.Rows.Count - 1 To rng.Row Step -1 If IsEmpty(rng(i, 1)) Then rng(i, 1).delete Shift:=xlUp Next End Sub Schönen Gruß, Tobi http://vba-blog.de/ |
| Sub LeereZellenLöschen2() Dim rng As Range Set rng = Range("A1:A20") rng.SpecialCells(xlCellTypeBlanks).delete shift:=xlUp End Sub Schönen Gruß, Tobi http://vba-blog.de/ |