Ich möchte die Zellen in Spalte E, die einen Text besitzen und nicht leer sind, in die selbe Zeile, aber in Spalte D verschieben.
Hat da jemand eine Lösung für mich parat?
Danke schonmal! Gruß, Dominik
Sub E_nach_D_verschieben()
Dim rng As Range
Application.ScreenUpdating = False
For Each rng In Range("E:E").SpecialCells(xlCellTypeConstants, xlTextValues)
rng.Cut rng.Offset(0, -1)
Next
Application.ScreenUpdating = True
End Sub