definierte Funktion rechnet nicht mit Namen

Hallo EXCEL-Gemeinde,
ich habe eine selbstdefinierte Funktion mit einer Übergabevariablen "c".
Zwei weitere Variablen sollen nicht als Argument übergeben werden, sondern aus einem Tabellenblatt kommen (d.h., sie sind dort als Namen "a" und "b" definiert), zb.:


Function funktion(c)
funktion = range("a").value + range("b").value * c
End Function

Im Tabellenblatt rufe ich diese dann in einer Zelle mit =function($a$1) (z.B.) auf - ganz normal eigentlich.
Diese Funktion rechnet leider nur einmal mit a und b, nämlich beim erstmaligen Aufruf der Funktion!
Wenn ich später die Werte von a und b im Tabellenblatt ändere, werden diese nicht nachgezogen!
Was höchstens dann noch funktioniert ist, wenn ich in die Zelle mit der Funktion mit dem Cursor reingehe und nochmal RETURN drücke (F9 funktioniert übrigens auch nicht).
Was muß ich machen, damit mit "a" und "b" automatisch gerechnet wird (ich will "a" und "b" ausdrücklich NICHT mit den Argumenten der Funktion übergeben!)?
Später möchte ich die Funktion dann noch aus einer anderen Datei aufrufen, z.B. =ursprungsdatei.xls!funktion($b$2), dann muß diese auch noch funktionieren.
Schöne Grüße
Bernd

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function sollte weiteres Unheil vermeiden: Sub test() msgbox funktion(range("a").value,range("b").value,2) End Sub Function funktion(rng1 as range, rng2 as range, c as double)as double application.volatile on error goto errEnd funktion = (rng1 + rng2) * c exit function errEnd: err.clear funktion = 0 End Function Bye Nike

Hi,
die msgbox war nur als Beispiel gedacht,
wie man die Funktion einsetzen koennte...
ich hatte mir auch noch den Schnitzer erlaubt
nicht ein Range zu uebergeben, sondern nur die Werte der Zellen,
der korrekte Aufruf waere
msgbox funktion(range("a"),range("b"),2)
gewesen...
Die Uebergabe der 3 Werte haette die Funktion flexiebler gemacht.
so weisst du nicht, ob auf dem gerade aktiven Blatt
jeweils zwei Bereichsnamen mit A und B vergeben wurden,
wenn nicht, kommt ein Fehler raus...
Wenn du nur C uebergeben moechtest, dann wohl so:


Sub test()
msgbox funktion(2)
End Sub


Function funktion(c as double)as double
application.volatile
on error goto errEnd
funktion = (range("a").value + range("b").value) * c
exit function
errEnd:
err.clear
funktion = 0
End Function

Bye
Nike

Beliebteste Forumthreads (12 Monate)

definierte Funktion rechnet nicht mit Namen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread