Leider wird dabi die Zielformatierung überschrieben, was ich nicht möchte.
Kann die folgende Prozedur entsprechend angepasst werden?
Sub aaa()
Dim c As Range, s As Long
Application.ScreenUpdating = False
s = Application.InputBox("Spalten nach rechts?", , 0, , , , , 1)
For Each c In Selection
c.Copy c.Offset(, s)
Next c
End Sub