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
|