OpenOffice.info

Danke - somit ist das Problem gelöst!

1_DimensionAnfang = lbound(f,1)
1_DimensionEnde = UBound (f,1)
2_DimensionAnfang = lbound(f,2)
2_DimensionEnde = UBound (f,2)

Hallo Sabine!

[quote="professor_"]
aber in der Zeile "if (f(i) ..." erhalte ich immer "index out of defined range"
[/quote]
Das kommt daher, weil ein Zellbereich immer zwei Dimensionen hat. In der ersten Dimension wird die Zeile und in der zweiten Dimension die Spalte abgebildet.
In dem Bereich A1:A10 gibt es eine Spalte und 10 Zeilen. Schreibe also statt f(i): f(i,1).
Bei unterschiedlichen Spaltenanzahl kannst du natürlich die zweite Dimension auch mit LBound und UBound abfragen:

[code]
1_DimensionAnfang = lbound(f,1)
1_DimensionEnde = UBound (f,1)
2_DimensionAnfang = lbound(f,2)
2_DimensionEnde = UBound (f,2)
[/code]

Gruß
Charly

Function TEST(f)
	TEST = -1
	Length = UBound(f) - LBound(f) + 1
	for i=1 to Length-5
		if ( f(i) < 50 and f(i+1)<50 and f(i+2) < 50) then
			TEST=i
		end if
	next i
End Function

Hallo,

ich möchte eine benutzerdefinierte Funktion mit einem Array als Parameter erstellen, in der Art:

[code]
Function TEST(f)
TEST = -1
Length = UBound(f) - LBound(f) + 1
for i=1 to Length-5
if ( f(i) < 50 and f(i+1)<50 and f(i+2) < 50) then
TEST=i
end if
next i
End Function
[/code]

Die Fkt. schaut einfach nach dem ersten Wert < 50. Diese Funktion rufe ich dann in Calc auf: =TEST(A1:A10). In "Length" steht tatsächlich auch die richtige Anzahl von Werten, aber in der Zeile "if (f(i) ..." erhalte ich immer "index out of defined range".

Was mache ich denn da falsch?

Danke!
Sabine Lorentz