Benutzerdeffinierte Funktion Rückgabewert 0

Hallo liebe Excel-Gemeinde,
ich bemühe mich gerade, meine erste benutzerdeffinierte Funktion zu schreiben. Ich habe den Code schon getestet, er läuft sehr gut. Beim Einbinden in die eigentliche Funktion erhalte ich als Ergebnis aber leider immer den Rückgabewert 0. Im Anschluss der Funktionskopf sowie eine kurze Beschreibung der Funktionalität:
Function Test(x As Variant, y As Integer) As Single
Dim j, mth As Integer, vbArray(12), fvalue As Single, r As Object
mth = Month(td)
x: hier soll ein Datum (TT.MM.JJJJ) aus einer Excel-Zelle abgerufen werden
y: gibt die Position in einem Array an, aus welchem zum angegebenen Datum ein Wert ausgelesen werden soll.
Ich vermute einen Fehler bei der Typendeklaration, stoße hier aber an meine Grenzen.
Vielen Dank und Gruß
tobi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Function Test(x As Variant, y As Integer) As Single Dim j, mth As Integer, vbArray(12), fvalue As Single, r As Object mth = Month(x) Set r = Sheets("Test").Columns(1).Find(what:=x) If r Is Nothing Then Exit Function For j = 1 To 12 vbArray(j) = r.Offset(0, j).Value Next j Select Case mth Case 1 Select Case y Case 1 To 6 fvalue = vbArray(y) Case 7, 8 fvalue = vbArray(8) Case 9 To 11 fvalue = vbArray(9) Case 12 To 14 fvalue = vbArray(10) Case 15 To 23 fvalue = vbArray(11) Case 24 To 35 fvalue = vbArray(12) End Select

Function Test(x As Variant, y As Integer, rSuch as Range) As Single Dim j, mth As Integer, vbArray(12), fvalue As Single, r As Object mth = Month(x) Set r = rSuch.Find(what:=x) If r Is Nothing Then Exit Function For j = 1 To 12 vbArray(j) = r.Offset(0, j).Value Next j ....

Hi
wie schon erwähnt wurde, bei einer Excelfunktion sollte man alle benutzen Zellbereiche als Parameter übergeben.
Auf dein Problem sollte das zwar keinen Einfluss haben, aber die Funktion wird damit universeller und vorallen Dingen ist der Zellbereich in der Überwachung für eine eventuell anstehende Neuberechung mit drin.
Dh wenn du in deiner Funktion einen Zellbereich verwendest, der nicht als Parameter übergeben wurde, dann ist das zwar möglich, aber es erfolgt kein Aktualisierung des Ergebnisses, wenn sich in diesem Bereich was ändert!
Aber jetzt zu deiner Problemursache:
Das Suchen mit der .Find-Funktion nach Datumswerten ist ein hochkomplexer vorgang, weil hier die Problematik: wahrer Zellwert (ganzzahl) vs angezeigter Textstring in unterschiedlichen Schreibweisen (VBA: amerikanisches Format, Excel: deutsches Format) voll zum Tragen kommt und deswegen die Suche oft scheitert, obwohl der Suchwert eigentlich vorhanden ist.
Wesentlich weniger problematisch ist hingegen die Verwendung der Funktion WorksheetFunction.Match().
diese entspricht der Funktion "Vergleich" in Excel und ist bei Datumswerten Formatunabhängig, da über den Zahlenwert des Datums gesucht wird.
So in etwa könnte der Ersatz für die .Find-Funktion aussehen:


dim Zeile as long
Zeile = 0
On Error Resume Next 'sonst Fehler wenn Suchwert nicht vorhanden
Zeile = Worksheetfunktion.Match(x, Sheets("Test").Columns(1), 0)
On Error Goto 0
If Zeile = 0 then Exit Function
For j = 1 To 12
vbArray(j) = Sheets("Test").Cells(Zeile, 1).Offset(0, j).Value
Next j
...

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Benutzerdeffinierte Funktion Rückgabewert 0

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread