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/ |