Code variabel machen
Mat
ich verwende den nachfolgenden Code
Private Sub CommandButton1_Click()
Range("i16:i41").Select
Selection.Copy
Range("k16:k41").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("e16:e41").Select
Selection.ClearContents
End Sub
Die Range "k16:k41" soll nun variabel werden, d. h. die Werte von "i16:i41" sollen jeweils eine Spalte weiter rechts eingetragen werden.
Kann mir jemand helfen den code anzupassen.
Viele Grüße
Mat