Fehler speichern

Forumthread: Fehler speichern
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Fehler speichern

Fehler speichern

09.04.2006 17:32:34

Pia

Hey Ihr!
Ich hatte mal vor langer Zeit einen Code zum Speichern eines VBA Fehlers, der klappt auch noch sehr gut, ich möchte diesen aber erweitern.
Wenn ich auf Debuggen klicke, wird mir ja der fehlerhafte Code gelb markiert. Ist es möglich diese Zeilenanzahl, sowie das Projekt (also, welches Modul oder welche UF....) auszugeben?
Danke Euch!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Fehler speichern

10.04.2006 01:08:12

Nepumuk

AW: Fehler speichern

10.04.2006 01:08:12

Nepumuk

Hallo Pia,
es ist nicht möglich zu ermitteln, in welchem Modul und welcher Prozedur du dich befindest. Du musst also in jedem Modul und jeder Prozedur eine Variable, besser eine Konstante setzen, in welchen sich diese Namen befinden. Die Zeilennummer wird über die nicht dokumentierte Funktion Erl zurückgegeben, wenn du Zeilennummern vergeben hast. Das ganze sieht dann so aus:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Const MODULNAME = "Modul1"

Public Sub testMakro()
    1 Const PROCEDURNAME = "testMakro"
    2 Dim i As Integer
    3 On Error GoTo err_exit
    4 i = 1 / 0
    5 Exit Sub
    6 err_exit:
    7 MsgBox "Fehler in Modul " & MODULNAME & " Prozedur " & _
        PROCEDURNAME & " Zeile " & CStr(Erl)
End Sub

Gruß
Nepumuk