Wie kann ich Fehler behandeln, bei denen ich wissen muss, an welcher Stelle sie aufgetreten sind?

Sub Prozedurname()
On Error Resume Next
' Anweisung
If Err.Number Then
' Fehlerbehandlung
Err.Number = 0
End If
' Anweisung
If Err.Number Then
' Fehlerbehandlung
Err.Number = 0
End If
End Sub

Die klassische Fehlerbehandlungsroutine hat den Nachteil, dass sich nicht genau feststellen lässt, an welcher Stelle innerhalb der Prozedur ein Fehler aufgetreten ist. Dies ist z. B. bei Objektbibliotheken ein Problem, die nur wenige Fehlernummern liefern. So liefert Excel fast bei allen Fehlern die Nummer 1004 zurück.