ich möchte leere zeilen zwischen werten in einer spalte löschen. die anzahl der leeren zeilen ist unterschiedlich. es dürfen auch nur die werte zusammengeschoben werden, nicht ganze zeilen löschen.
danke & gruß, carlos
Sub del_empty_cells()
For Each zelle In Selection.Cells
curr = zelle.Address
While Range(curr) = ""
Range(curr).Delete (xlUp)
Wend
Next
End Sub