Funktionsaufruf bei Änderung eines Parameter

Peter · 2016-11-07T09:22:06+00:00

Hallo, für mein Problem möchte ich euch zunächst die Ausgangslage beschreiben. Ich habe in VBA eine eigene Funktion erstellt eta(); sie besitzt drei Argumente (p1,p2,t1). In meiner Excel Tabelle rufe ich diese Funktion in einer Zelle auf. Die 3 Argumente haben ihren Bezug auf 3 verschiedene andere Zellen. Ändert sich nun der Wert einer dieser "Argument-Zellen" aktualisiert sich die Zelle mit der Funktion. Soweit so gut. Wenn nun andere Berechnung auf der Tabelle ausgeführt werden, die die 3 "Argument-Zellen" verändern, führt dies zum 3-maligen Aufruf meiner Funktion eta. Aus Performancegründen möchte ich das vermeiden. Gibt es eine Möglichkeit, das meine Funktion nur neu berechnet wird, wenn sich bspw. ausschließlich p1 ändert, also eine Änderung der anderen Argumente keine Neuberechnung veranlasst? Hoffe mein Problem verständlich erklärt zu haben. Danke für eure Hilfe! Gruß Peter

…Peter (& Michael),
denn eine Fml ist selbst ein Text, der von Xl erst interpretiert wdn muss. Alles, was nicht explizit Text ist, wird von Xl, wenn es sich um eine ZellAdresse handelt, der AktualisierungsRoutine unterworfen. Dabei wdn UDFs ggf ohnehin öfter neu berechnet als zumindest manche StandardFkt. Das hat mit impliziter FktsVolatilität auch rein gar nichts zu tun. Das läuft immer so!
Im TabBlatt musst du das also so Schreiben: =Eta(p1-adresse;"p2-adresse";"t1-adresse")
Bei zusätzlicher Verwendung von INDIREKT müsstest du zwar nichts an der UDF ändern, das wäre aber kontraproduktiv, denn INDIREKT ist volatil! Folglich musst du in die UDF eine Erkennung von p2 und t1 einbauen, was dir nicht schwer fallen sollte.
Falls du die Fml trotzdem „ziehbar“ machen willst, musst du so vorgehen wie bei gleichem Anliegen für die XlFktt INDIREKT und HYPERLINK (ADRESSE usw), die dir (bis auf generelle Volatilität) die Lösung deines Problems ja schon vormachen!
Gruß, Luc :-?
PS @ Michael: Hättest du dich an der Hallowe(e/n)n-Diskussion beteiligt oder wenigstens eine meiner BspDateien angesehen, hättest du auch darauf kommen können, denn die Demo-UDF simIf verwendet auch ein TextArgument (ganze Fml!), um ein bestimmtes, von der Norm abweichendes Verhalten von Xl zu erzwingen!
Besser informiert mit …

Hi,
irgendwie ist mir Lucs Faden auch entgangen, aber dank des Hinweises an Werner habe ich ihn dann doch einigermaßen gründlich überflogen.
Insbesondere die Zusammenfassung hat mir getaugt, wenn ich auch zugeben muß, daß ich die Besonderheiten mit strings als Parameter überlesen habe.
In dem Zusammenhang fällt mir ein, daß man mal überprüfen könnte, inwieweit Excel nicht die Zweige, sondern die Bedingungen auswertet: bei meinem guten, alten Pascal-Compiler (TP 3.01) hieß es, daß nachfolgende Bedingungen ("rechts") gar nicht mehr berechnet werden, sobald ein eindeutiges Ergebnis vorliegt.
Was ich so verstehe, daß bei einer Konstruktion wie a=0:b=1: If (a=b) And (weitere Bedingungen) alles nach dem And schon wurscht ist, weil durch das false links vom And der ganze Ausdruck false ist.
Die Bedeutung liegt dann in der optimierten Umsetzung der (erwarteten) Priorität von Bedingungen, anhand derer man die Ifs formuliert und ggf. verschachtelt, um z.B. ein Event-Makro möglichst schnell verlassen zu können, falls nichts zu tun ist.
Man sehe sich an:

Option Explicit
Dim jj&, kk&
Function fj(i) As Boolean
jj = jj + 1
fj = (i And 2) = 2
End Function
Function fk(i) As Boolean
kk = kk + 1
fk = (i And 4) = 4
End Function
Sub testen()        ' *** die hier aufrufen ***
Const wdh = 10000
Cells.Clear
Call test0("A", wdh)
Call test1("D", wdh)
End Sub
Sub test1(sp$, wdh&)
Dim i&, j&, k&, w&
Dim a(499, 1)
Dim t0 As Single
For i = 0 To 499: a(i, 0) = i: Next
t0 = Timer
For w = 1 To wdh
kk = 0: jj = 0
For i = 0 To 499
If (i And 1) = 1 Then If fj(i) Then If fk(i) Then a(i, 1) = 1
Next
Next
Range(sp & "3") = "t : " & (Timer - t0)
Range(sp & "1") = "jj: " & jj
Range(sp & "2") = "kk: " & kk
Range(sp & "4").Resize(500, 2) = a
End Sub
Sub test0(sp$, wdh&)
Dim i&, j&, k&, w&
Dim a(499, 1)
Dim t0 As Single
For i = 0 To 499: a(i, 0) = i: Next
t0 = Timer
For w = 1 To wdh
kk = 0: jj = 0
For i = 0 To 499
If ((i And 1) = 1) And fj(i) And fk(i) Then a(i, 1) = 1
Next
Next
Range(sp & "3") = "t : " & (Timer - t0)
Range(sp & "1") = "jj: " & jj
Range(sp & "2") = "kk: " & kk
Range(sp & "4").Resize(500, 2) = a
End Sub

Wenn man das Ding mit kleinen wdh einsetzt, ist der Unterschied wurscht, aber bei wdh=10000 sieht man schon, worauf es hinausläuft.
Schöne Grüße & baba nach Wien,
Michael

Funktionsaufruf bei Änderung eines Parameter

Forumthread: Funktionsaufruf bei Änderung eines Parameter

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Funktionsaufruf bei Änderung eines Parameter

Forumthread: Funktionsaufruf bei Änderung eines Parameter

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread