Office: Name eines Makros/ Moduls auslesen

Nagus · 23. Dezember 2004

Hallo,

ich würde gerne die Fehlerbehandlung in einem Makro verbessern.
Dazu hatte ich mir vorgestellt, dass im Falle eines Fehlers, eine Mail an mich verschickt wird, die verschiedene Angaben enthält, nämlich

1. den Namen des Makros, der den Fehler verursacht hat und als Schmankerl
2. die Codezeile oder die Zeilennummer des Fehlers.

Leider bekomme ich es aber nicht hin den Namen des Makros auszulesen. Ausserdem weiss ich auch nicht, ob es überhauot möglich ist die Zeilennummer an dem das Makro stoppt ebenfalls zu erkennen und in einer Variablen zu speichern.

Hat das schon mal jemand gemacht?
Ich meine so etwas schon einmal gesehen zu haben. Leider blieben meine Recherchen im www aber fruchtlos.

:)

User · 25. Dezember 2004

Hallo Nagus,

ein Ansatz zum Makronamen.

Code:

Option Explicit

Sub ListProcedures()
' Hinweis von Thomas Ramel
' auflistung aller Sub
' Du musst einen Verweis setzen auf:
' Microsoft Visual Basic for Application Extensibilty 5.3
Dim VBCodeMod As CodeModule
Dim StartLine As Long
Dim Msg As String
Dim ProcName As String
Set VBCodeMod = ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule
'Hier den Modulnamen anpassen
With VBCodeMod
StartLine = .CountOfDeclarationLines + 1
Do Until StartLine >= .CountOfLines
Msg = Msg & .ProcOfLine(StartLine, vbext_pk_Proc) & Chr(13)
StartLine = StartLine + _
.ProcCountLines(.ProcOfLine(StartLine, _
vbext_pk_Proc), vbext_pk_Proc)
Loop
End With
MsgBox Msg
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

Nagus · 25. Dezember 2004

Danke Hajo, das gucke ich mir mal genauer an

Office: Name eines Makros/ Moduls auslesen

Name eines Makros/ Moduls auslesen

Name eines Makros/ Moduls auslesen

Name eines Makros/ Moduls auslesen - Similar Threads - Name Makros Moduls

Name der Datei durch Excel geändert

Namen ausgeben mit größtem Wert auf einem anderen Blatt

Namen Vergleichen

Formel mit INDEX, MATCH und MAX gibt Fehler #NAME!

Eindeutige Namen - Bedingte Formatierung

Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist

Namen von Mietparteien im Müllkalender