Aufrufende Funktion feststellen

[komma4]

...wenn Du BASIC-/Code-Fehler meinst:

F1: Err-Funktion [Laufzeit]

[komma4]

Nein, so etwas gibt es (als "öffentliche" Variable) nicht (nur intern für ERR)

Code: Alles auswählen

Private rufendeFkt as String
Sub Main
' ... irgendwas

msgbox f1

End Sub
Function f1
   rufendeFkt = "f1"
   wert = f2
   msgbox f2
   f1 = "rückgabe"
end
Sub meine2
   msgbox "aufrufende func " & rufendeFkt
End Sub 

Anmerkungen:
* eine FUNCTION ist vorgesehen, um einen Wert zurück zu geben, sonst nutze SUB
* der Name darf nicht mit einer Ziffer beginnen