Abbruch Prozedur: Codezeile des Fehlers
Philipp
ich bin mir nicht sicher, ob es nicht durch eine einfache Funktion möglich ist, folgendes Problem zu lösen:
Wenn mir eine Prozedur/Funktion abbricht (z.B. Laufzeitfehler) und auf die Schaltfläche Debugging gehe, dann wird die Zeile ausgewählt, wo der Fehler passiert, der den Programmabbruch verursacht hat.
Möchte ich jedoch mit dem Befehl "On Error GoTo Fehlerauswertung" zu der Sprungmarke springen um dort den Fehler weiterzuverarbeiten, wie kann ich die Zeile herausfinden, in der der Fehler aufgetreten ist?
Bsp:
Sub TestFehlerZeilenUebergabe()
Dim intFehlerhafteZeile as integer
On Error GoTo Fehlerauswertung
' ... beliebiger VB-Code
' Zeile mit dem Fehler, z.B der einen Laufzeitfehler auslöst
Dim i as Integer
i = "kein Zahlenwert sondern ein String"
Exit Sub
Fehlerauswertung:
MsgBox "Der Fehler ist in der Zeile aufgetreten: " & FehlerhafteZeile ' Mir ist bewusst, dass _
es dies nicht gibt, aber vielleicht gibt es hierzu ein Mittel
End Sub
Gruß,
Philipp
Anzeige