Sub Errors()
'Arbeitsplatt mit Zahlen 1-10 in Zeile 1-10 von Spalte A.
'Löschen von 3 und 6 erzeugt für n=3 und n=6 im Makro einen Fehler.
'Bei Fehler für n=3 wird zu ErrHandler gesprungen
'Bei Fehler für n=6 nicht. Wieso?
On Error GoTo ErrHandler:
For n = 1 To 10
Cells.Find(What:=n).Activate
Cells(n, 2).Value = 1
ErrHandler:
Next n
End Sub
Sub Errors()
Dim n As Long
'Arbeitsplatt mit Zahlen 1-10 in Zeile 1-10 von Spalte A.
'Löschen von 3 und 6 erzeugt für n=3 und n=6 im Makro einen Fehler.
'Bei Fehler für n=3 wird zu ErrHandler gesprungen
'Bei Fehler für n=6 nicht. Wieso?
On Error GoTo ErrHandler:
For n = 1 To 10
Cells.Find(What:=n).Activate
Cells(n, 2).Value = 1
CatchError:
Next n
Exit Sub
ErrHandler:
Resume CatchError
End Sub
Sub withoutErrors()
Dim rng As Range
Dim lngIndex As Long
For lngIndex = 1 To 10
Set rng = Cells.Find(What:=lngIndex)
If Not rng Is Nothing Then Cells(lngIndex, 2) = 1
Next
End Sub
Sub Errors()
On Error GoTo NextN2:
For n = 1 To 10
Cells.Find(What:=n).Activate
Cells(n, 2).Value = 1
NextN1:
Next n
Exit Sub
NextN2:
Resume NextN1:
End Sub