Laufzeitfehler 1004 "Bereich von object_worksheet fehlgeschlagen - Excel, Vba

Möchten Sie eine Zelle ändern, um diesen Code auszuführen: Rufen Sie einen Laufzeitfehler ab.

 Private Sub Worksheet_Change(ByVal Target As range)
On Error GoTo ErrorHandler "<--| be sure to catch any error and enable   events handling back
Select Case Target.Address

Case "$F$16"
"Recalculate as necessary
For counter = 1 To range("F16").Value
Debug.Print counter;
amount = range("F13").Value + (range("F13").Value * 0.15)
Next
range("F17").Value = amount

End Select
ErrorHandler:
Application.EnableEvents = True "<--| enable events handling

End Sub

Vielen Dank

Antworten:

Für die Kommentare sollte dies funktionieren:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler   "<--| be sure to catch any error and enable   events handling back
Dim i As Long

Select Case Target.Address

Case "$F$16"
"Recalculate as necessary
For i = 1 To Range("F16").Value
Debug.Print i
Range("F17").Value = Range("F13").Value + (Range("F13").Value * 0.15)
Next i

End Select
ErrorHandler:
Application.EnableEvents = True    "<--| enable events handling

End Sub