Fehlercode VBA automatisch anzeigen
07.04.2005 14:21:14
Marcel
gibt es eine Möglichkeit einen Code in eine Prozedur einzubauen der die Fehlernummer ausgibt falls ein Fehler Auftritt?
Ich hab in der VBA hilfe folgendes Beispiel gefunden so ungefähr meine ich das, halt nur das ein nicht erzeugt sondern der aufgetretene Fehler angezeigt wird?
Private Sub Fehlernummer_anzeigen()
Dim Mldg
' Bei Auftreten eines Fehlers Fehlermeldung erstellen
On Error Resume Next ' Fehlerbehandlung zurückstellen.
Err.Clear
Err.Raise 6 ' Überlauffehler" auslösen.
If Err.Number <> 0 Then
Mldg = "Fehler # " & Str(Err.Number) & " wurde ausgelöst von " _
& Err.Source & Chr(13) & Err.Description
MsgBox Mldg, , "Fehler", Err.HelpFile, Err.HelpContext
End If
End Sub
Gruss
Matcel