Option
Explicit
Private
Sub
Worksheet_BeforeDoubleClick(
ByVal
Target
As
Range, Cancel
As
Boolean
)
ActiveSheet.Unprotect Password:=
"pw"
Dim
vZeilenanzahl
As
Variant
Dim
i
As
Long
vZeilenanzahl = InputBox(
"Wieviel Zeilen?"
)
If
IsNumeric(zeilenanzahl)
Then
For
i = 1
To
vZeilenanzahl
Step
1
Target.Offset(1, 0).EntireRow.Insert Shift:=xlDown
Target.Offset(1, 0).EntireRow.Value = Target.EntireRow.Value
Next
End
If
Cancel =
True
ActiveSheet.Protect Password:=
"pw"
End
Sub