Laufzeitfehler 1004 „Bereich von object_worksheet fehlgeschlagen

Question

Möchten Sie einen Zellenwechsel verwenden, um diesen Code auszuführen. Einen Laufzeitfehler erhalten

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 

Danke

Answer 1

Per Kommentare, diese funktionieren soll:

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