Guten Tag,

Seit gestern bekomme ich eine Fehlermeldung "Laufzeitfehler 1004: Die Insert-Methode des Range-Objektes konnte nicht ausgeführt werden"

Innerhalb der gleichen Tabelle habe ich zwei Privat Sub Worksheet Prozeduren im Einsatz. Ob das eventuell einen Einfluss hat?

An der gelb Markierten Stelle, tritt der Fehler auf 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
    Dim vZeilenanzahl As Variant
    Dim i As Long
    
    vZeilenanzahl = InputBox("Wieviel Zeilen?")
    If IsNumeric(vZeilenanzahl) Then
        For i = 1 To vZeilenanzahl
            Debug.Print "zahl"
            Rows(ActiveCell.Row).Select
            Selection.Copy
            Selection.Insert Shift:=xlDown
        Next
    End If
    Cancel = True
     
    End Sub