in einem ErrorHandler möchte ich den Namen der Procedure und des Moduls angeben...
zB:
Sub test()
On Error GoTo ErrorHandler
MsgBox "Hello World"
ErrorHandler:
Call ErrH(Err.Number, Err.Description) '... weitere Argumente für Modul-Name und Prozedur
End Sub
Sub ErrH(lngNb as Long, strDescription as String)
MsgBox "Err.Number: " & lngNb & Chr(10) & _
"Err.Description: " & strDescription, 16, "Error"
'...hier soll auch der Modul-Name und der Sub-Name bzw Function-Name aufgeführt werden.
Err.Clear
End Sub
Irgendwann bin ich im Archiv schon mal darüber gestolpert ...
aber wenn man danach sucht, findet man es nicht...
vielen Dank vorab für eure Hilfe.
Grüße
Christian
PS: ich arbeite selbst mit Office 2003, der Code sollte aber auch mit VBA5 (97, Mac) funktionieren.