PCtipp 2/2011: 10 nützliche Excel-Makros

[LHG]

Hier eine Makro um eine Zeile zu kopieren (ohne zuerst eine neue Zeile einfügen zu müssen)

Sub ZeileKopieren()
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.EntireRow.Insert
ActiveCell.Offset(-1, 0).Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub