Re: Aufrufende Funktion feststellen
Verfasst: Di, 01.09.2009 18:28
...wenn Du BASIC-/Code-Fehler meinst:
F1: Err-Funktion [Laufzeit]
F1: Err-Funktion [Laufzeit]
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 * eine FUNCTION ist vorgesehen, um einen Wert zurück zu geben, sonst nutze SUB
* der Name darf nicht mit einer Ziffer beginnen