Prozedurnamen auslesen
11.01.2008 08:36:00
helmut
aus dem nachfolgenden SUB möchte ich "subWrite_MFR_ZAEHLUNG_KORR"
im Fehlerfall in meine Error-Routine "subError" (Aufruf s.u.) nicht mehr vorgeben.
Wie erhalte ich den sub Namen aus Excel?
Gruß
HK
Public Sub subWrite_MFR_ZAEHLUNG_KORR()
' Ausgabe der ORACLE-Tabelle: MFR_ZAEHLUNG_KORR
' Created : 13.11.2007
On Error GoTo All_Error
Dim wks As Worksheet
... div VBA-Code
Exit_All_Error:
Exit Sub
All_Error:
subError Err.Number, Err.Description, "Sub subWrite_MFR_ZAEHLUNG_KORR"
Resume Exit_All_Error
End Sub