ich möchte einen Zellbereich kopieren und anschließend sollen die Kopie direkt neben diesem Bereich eingefügt werden. Dabei sollen die vorhandenen Daten nach rechts verschoben werden. Wichtig ist, dass unter dem Bereich Daten sind, die nicht verschoben bzw. kopiert werden dürfen.
Mein Code:
Range(Cells(1, i - 4).Address, Cells(LV, i - 3)).Copy
Range(Cells(1, i - 2), Cells(LV, i - 1)).Insert Shift:=xlToRight
Application.CutCopyMode = False
Alternativ würde auch gehen, wenn der Bereich in die selbe Stelle eingefügt würde:
Range(Cells(1, i - 4).Address, Cells(LV, i - 3)).Select
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Das Programm steigt bei der Range-Zuweisung aus. Mit Laufzeilenfehler 1004
Kann mir jemand einen kleinen Tip geben????
Danke