Bei Übergabe des Funktionsnamens könnte man den innerhalb der Function mittels Execute aufrufen, da musst Du aber etwas probieren, da die verwendeten Variablen global deklariert sein müssen. Hier mal ein Gerüst
Dim script As String
executefehler = ""
script = |Sub Initialize
On Error GoTo Fehler
ergebnis = | & funktionsname & | (x, y, z)
Exit Sub
Fehler:
executefehler = Erl & "-" & Err & " " & Error
Exit Sub
End Sub|
On Error GoTo Fehler 'für Syntaxfehler des Scriptes
Execute (script)
If executefehler <> "" Then
'Ein Fehler ist im Execute aufgetreten
Else
End If
Fehler:
'Fehlerhandling
...