Sub TestFehlerbehandlung()
On Error GoTo TestFehlerbehandlung_Error
'Code
TestFehlerbehandlung_Exit:
On Error GoTo 0
Exit Sub
TestFehlerbehandlung_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure _
TestFehlerbehandlung of Modul Modul1"
GoTo TestFehlerbehandlung_Exit
End Sub
Wenn keine Fehler auftreten können, kann eine Fehlerbehandlung nicht schaden. Wenn die Fehlerbehandlung wirklich vollkommen unnötig ist (wie in Deinen Beispielen) lasse ich sie auch mal weg.
Unter Extras - Optionen - Allgemein - Unterbrechen bei Fehlern kann man übrigens noch einige hilfreiche Einstellungen zum Debuggen vornehmen.
Schönen Gruß, Tobias
http://www.tobiasschmid.de/