Herbers Excel-Forum - das Archiv

Fehlercode VBA automatisch anzeigen

Bild

Betrifft: Fehlercode VBA automatisch anzeigen
von: Marcel

Geschrieben am: 07.04.2005 14:21:14
Hallo ich hab noch eine Frage zu den Fehlernummern.
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
Bild

Betrifft: AW: Fehlercode VBA automatisch anzeigen
von: Luc

Geschrieben am: 07.04.2005 20:50:50
Hallo Marcel,
das geht natürlich auch und steht ebenfalls in der Hilfe. Statt onError resume next muss es dann onError goto marke heißen. Die Marke leitet dann als letzten Block deines Programms die Fehlerbehandlung ein (also bei normalem Ablauf Pgm vorher mit exit verlassen). In diesem Block kannst du dann mit msgbox err.description, vbOKonly, "Fehler "& err.number Fehlernummer (im BoxTitel) und -beschreibung ausgeben. Es ist natürlich auch möglich, beides in der aktiven Zelle auszugeben.
Gruß Luc :-?
 Bild
Excel-Beispiele zum Thema "Fehlercode VBA automatisch anzeigen"
Automatische Datumformatierung unterdrücken Automatisch Sicherungsdatei erstellen
Automatisches Komplettieren einer Zelleingabe Zelleingaben automatisch auf volle 1,2-Teile runden
Tabelle nach Datumseintrag automatisch sortieren Eingaben in B:D automatisch mit 6 multiplizieren
Zelleingabe automatisch in Kopfzeile übernehmen Nach Zelleingabe automatische Sortierung
Automatische Sortierung bei Zelleintrag Min- und Max-Werte automatisch markieren