Hallo, ich möchte einen ausgewählten Bereich eine Zeile höher oder tiefer verschieben.
Der folgende Code ist vom Macrorecorder aufgezeichnet.
Range("D151:E178").Select
Selection.Cut
ActiveWindow.SmallScroll Down:=0
Range("D152").Select
ActiveSheet.Paste
Range("D151").Select
Wie kann ich den Code professioneller gestalten?
z.B. Muss ich mit Cut und Paste arbeiten oder kann ich einen Bereich auch einfach schieben (z.B.Offset)
Vielen Dank im Voraus
Gruß Horst