Hallo,
ich habe folgendes Makro erstellt
dabei soll jedoch Rows("15,15) durch die aktuelle Zeile als Variable ersetzt werden,
eine Zeile eingefügt werden und mit den Werten von D7:O7 (Zelle A-C bleibt leer)
Sub Makro12()
'
Rows("15:15").Select ... sol aktuelle Zeile sein
Selection.Insert Shift:=xlDown
Rows("11:11").Select....aktuelle Zeile +1
Selection.Copy
Range("D7:O7").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll Down:=2
ActiveWindow.LargeScroll ToRight:=-1
ActiveWindow.ScrollRow = 6
Range("D15").Select
ActiveSheet.Paste
End Sub