Microsoft Excel

Herbers Excel/VBA-Archiv

Prozedurnamen auslesen

Betrifft: Prozedurnamen auslesen von: helmut krueger
Geschrieben am: 11.01.2008 08:36:30

Hallo,

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


  

Betrifft: AW: Prozedurnamen auslesen von: Renee
Geschrieben am: 11.01.2008 08:43:02

Hi Helmut,

Nur mit unverhätlnismässig grossem Aufwand.

Eine einfache Alternative: Definiere eine Public string-Variable z.B. currentSub uns setze sie mit z.B. currentSub = "subWrite_MFR_ZAEHLUNG_KORR" . So kannst du sie zur akuraten Fehlermeldung brauchen, da du auch ev. Zwischenschritte dokumentieren könntest (currentSub = currentSub & " step 1" ...).

GreetZ Renée


  

Betrifft: AW: Prozedurnamen auslesen von: helmut krueger
Geschrieben am: 11.01.2008 08:50:38

Hallo,

Deinen Vorschlag mit einem String habe ich auch schon umgesetzt - Danke.

Was heißt "unverhätlnismässig grossem Aufwand"?

Gruß Helmut


  

Betrifft: AW: Prozedurnamen auslesen von: Renee
Geschrieben am: 11.01.2008 08:57:41

Hi Helmut,

..."unverhätlnismässig grossem Aufwand"?, das der Aufwand des Codierens (inkl. Sicherheit und Robustheit des Codes) in keinem wirtschaftlich vertretbaren Verhältnis zu Erreichung der gleichen Funktionalität steht, wie sie mit der einfacheren Möglichkeit mit Strings zu erreichen ist.
Den für deinen Ansatz musst du mit VBA Code "VBA code analysieren"!
Dadurch wird der Code fehlerbehafteter, grösser, schwerer wartbar, ev. inkompatibler gegenüber kommenden Versionen etc.etc...

GreetZ Renée


 

Beiträge aus den Excel-Beispielen zum Thema "Prozedurnamen auslesen"