Fehlerbehandlung

Bild

Betrifft: Fehlerbehandlung
von: JL
Geschrieben am: 07.03.2005 23:05:37
Hallo Forum,
Ich habe eine frage zur Fehlerbehandlung.
ich möchte im Rahmen der Fehlerbehandlung eine Logdatei mit den wichtigsten Angaben anlegen lassen. Soweit ist mir das klar.
Was ich nicht weiß ist:
ob ich die abfangbaren Fehler auf Projektebene oder zumindest auf Modulebene global so umleiten kann.
2. Kann man zusätzlich das Modul und idealerweise noch den vom Debugger unterlegten Code mit abspeichern?
Danke
Jörg

Bild

Betrifft: AW: Fehlerbehandlung
von: Josef Ehrensberger
Geschrieben am: 08.03.2005 01:10:45
Hallo Jörg!
Vielleicht hilft dir das.

Sub test()
Dim ws As Worksheet
On Error GoTo ERH
Set ws = Sheets(0)
ERH:
Debug.Print Err.Number
Debug.Print Err.Description
Debug.Print Err.Source
With ThisWorkbook.VBProject.VBComponents.VBE
Debug.Print .ActiveVBProject.Filename
Debug.Print .ActiveVBProject.Name
Debug.Print .ActiveVBProject.Type
Debug.Print .ActiveCodePane.CodeModule
End With
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: Fehlerbehandlung
von: JL
Geschrieben am: 08.03.2005 08:12:32
Hallo Sepp,
Ich verstehe die Zeile
Set ws = Sheets(0)
nicht.
Den Code könnte ich in einem extra Makro unterbringen und dann müßte ich in jedem Makro die Zeilen
ON ERROR GOTO ERH
bzw.
ERH:
Call test
einfügen oder geht das auch "globaler" ?
Danke
Jörg
Bild

Betrifft: AW: Fehlerbehandlung
von: Josef Ehrensberger
Geschrieben am: 08.03.2005 08:41:30
Hallo Jörg!
"Set ws = Sheets(0)" hat nur den Sinn einen Fehler auszulösen!
Um den oder die Fehler abzufangen, wirst du schon in jedem Modul
eine Fehlerbehandlung brauchen.


Sub test()
Dim ws As Worksheet
On Error GoTo ERH
Set ws = Sheets(0)
Exit Sub
ERH:
fangeFehler
Resume Next
End Sub
Sub fangeFehler()
Debug.Print Err.Number
Debug.Print Err.Description
Debug.Print Err.Source
With ThisWorkbook.VBProject.VBComponents.VBE
Debug.Print .ActiveVBProject.Filename
Debug.Print .ActiveVBProject.Name
Debug.Print .ActiveVBProject.Type
Debug.Print .ActiveCodePane.CodeModule
End With
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!


Bild

Betrifft: AW: Fehlerbehandlung
von: JL
Geschrieben am: 08.03.2005 09:31:13

In jedem Modul oder in jedem Makro ?
Ansonsten tausend Dank, wiedermal.
Jörg
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ckeckboxen zu Laufzeit erstellen"