Makro Zellen kopieren und unterhalb einfügen
18.12.2014 15:31:53
Daniel
ich habe folgendes Makro, dass meine Zeilen 2 bis 6 kopiert und wieder einfügt.
Sub
Rows("2:6").Select
Selection.Copy
Selection.Insert Shift:=x1Down
Application.CutCopyMode = False
Range("A7").Select
End Sub
Das Problem hierbei: Die "Original" Zeilen rutschen in die Zeilen 7 bis 11 und die neuen werden oberhalb (in 2 bis 6) eingefügt. In meinem Fall müssen die neuen Zeilen samt Inhalt allerdings unterhalb d.h. ab Zeile 7 eingefügt werden.
Wie kann ich das Makro anpassen?
Vielen Dank für jede Hilfe!