Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
Cancel = ZeileEinfuegen(Target)
End
Sub
Function
ZeileEinfuegen(Target
As
Range)
As
Boolean
Rows(Target.Row).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode =
False
Cells(Target.Row + 1, Target.Column).
Select
ZeileEinfuegen =
True
End
Function