ich habe zwei Spalten und ich möchte in der Spalte "B" die Werten ein Schritt nach Oben verstezt werden und die Werten in der Spalten "C" zwei schritten nach Oben.
Mein Code:
Sub test()
ActiveSheet.Select
Range("B:B").Select Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C:C").Select Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
>