Funktion soll eigenen Namen ermitteln
14.01.2004 14:49:42
Reinhard
zum Testen in welcher Reihenfolge Excel eigene Funktionen abwickelt habe ich mir folgendes gebastelt:
Dim zaehl As Integer
Dim bereich(10000, 2) As String
Function doppel(x As Integer) As Integer
zaehl = zaehl + 1
bereich(zaehl, 1) = Left(Application.Caller.Address(external:=True), _
InStrRev(Application.Caller.Address(external:=True), "!") - 1)
bereich(zaehl, 0) = Mid(Application.Caller.Address(external:=True), _
InStrRev(Application.Caller.Address(external:=True), "!") + 1)
bereich(zaehl, 2) = "doppel"
doppel = 2 * x
End Function
Klappt auch gut und ich kann mir dann mit einer
Sub bereich() in eine Tabelle schreiben lassen und sehe dann wann welche Zelle welche Funktion aufruft.
Da ich damit verschiedene eigene Funktionen 'ausrüsten' will, wie kann ich die Zeile:
bereich(zaehl, 2) = "doppel"
so verbessern dass automatisch der Funktionsname in bereich(zaehl,2) geschrieben wird, oder muss ich das in
jeder Funktion manuell machen wenn ich die 4 Befehlszeilen (innerhalb der Sterne) dorthinein kopiere?
Also sowas wie
bereich(zaehl, 2) = ThisFunction.Name
Dankeschön
Reinhard