Applicatinion.caller in FunKtion
25.07.2005 18:07:49
Reinhard
Hallo Wissende,
die Tabelle sieht Wertmäßig so aus:
dffdfdf dffdfdf 0 0 dffdfdf
0
und Formelmäßig so:
dffdfdf =ueb1() =ueb2() =ueb3() =ueb1()
=ueb2()
Sub test()
[b1].Formula = "=ueb1()"
[c1].Formula = "=ueb2()"
[d1].Formula = "=ueb3()"
End Sub
Function ueb1()
MsgBox 1
ueb1 = Worksheets("Tabelle1").Range("A1")
End Function
Function ueb2()
MsgBox Application.Caller
ueb2 = Worksheets("Tabelle1").Range("A1")
End Function
Function ueb3()
MsgBox 1
ueb3 = [d1] & Worksheets("Tabelle1").Range("A1")
End Function
Wie man sieht funktionirt einzig ueb1()
Das verstehe ich schon nicht, was mich aber noch mehr irritiert ist dass bei Aufruf von test() weit über 20mal das Meldungsfenster aufgeht.
Am Fensterinhalt sieht man da zwischen ueb2() und ueb3() gependelt wird
Mit dem Gebilde "[c1] &" wollte ich
Gruß
Reinhard
Anzeige