VBA Matrix Function Ausgabe funktioniert nicht

Function CubSplineInter(X_v As Object, Y_v As Range, X As Range) xn = X.Rows.Count Dim Resultvector ReDim Resultvector(1 To xn) for i = 1 to xn Resultvector(i) = ... next i CubSplineInter = Resultvector End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo,
die Rückgabe ist doch nur ein eindimensionales Array.
Als Rückgabe bekommst Du doch ein eindimensionales Array (Resultvector),
wobei ich der Meinung bin Resultvector müsste als Array deklariert werden und
nicht nur als Variant, also Dim Resultvector().
Nun weil Du ja schon ein Array zurückbekommst,
braucht es ja nicht nochmal mit Strg+Shift+Enter abgeschlossen werden,
wie z. Bsp. bei SUMMENPRODUKT ist ja schon eine Matrix- Formel.
Ich meine Du müsstest diese Rückgabe in einer Formel verwenden
die mit einer Matrix umgehen kann, z.Bsp. Index.
=Index(CubSplineInter(?,?,?);1)
=Index(CubSplineInter(?;?;?);2)
usw.
Die ? stehen für die Daten die Du an die Function CubSplineInter übergibst.
Gruß Tino

Hi, Gothino,
lass dir von Tino nichts weismachen, denn …
1. die Rückgabe ist doch nur ein eindimensionales Array
Wieso?


ReDim Resultvector(1 To xn)
For i = 1 To xn
Resultvector(i) = …
Next i
CubSplineInter = Resultvector

…ist doch eindeutig ein Datenfeld, dass in dieser Form als 1dimensionaler horizontaler Vektor daherkommt, weshalb ich nach der Auswahlrichtung fragte. Es gibt nebenbei noch eine Variante als 1zeiliger, aber trotzdem 2dimensionaler HorizontalVektor (Range). Außerdem sind alle VertikalVektoren in Xl/VBA stets 2dimensional.
2. wobei ich der Meinung bin Resultvector müsste als Array deklariert werden und nicht nur als Variant, also Dim Resultvector()
Kann man machen, ist aber nicht unbedingt erforderlich.
3. weil Du ja schon ein Array zurückbekommst, braucht es ja nicht nochmal mit Strg+Shift+Enter abgeschlossen werden, wie z. Bsp. bei SUMMENPRODUKT ist ja schon eine Matrix- Formel
Ganz, ganz falsch! Gerade deshalb muss es als Matrixfml abgeschlossen wdn! Der Vgl mit SUMMENPRODUKT hinkt außerordentlich, denn das soll ja nur einen Wert liefern und ist dementsprechend programmiert.
4. =Index(CubSplineInter(?,?,?);1) → Was soll denn dabei rauskommen? Mit Sicherheit nur ein Wert und das ist ja wohl gar nicht gewollt! Und jede Zelle einzeln mit dieser Fml bei flfd Zeilenindex zu füllen ist so was von umständlich und unelegant …
Fazit: An Tino: „Schuster bleib bei deinen Leisten!” Von udF-Programmierung scheinst du viel zu wenig Ahnung zu haben, deshalb hier mal zum Üben die abgespeckte Variante …


Function CubSplineInter(X As Range)
Dim Resultvector, xn As Long, i As Long
xn = X.Rows.Count
ReDim Resultvector(1 To xn)
For i = 1 To xn
Resultvector(i) = i
Next i
CubSplineInter = Resultvector
End Function

Da kannst du dann gerne auch noch 'nen Timer einbauen! :->>
Viel Erfolg, Gothino!
Gruß Luc :-?

Function CubSplineInter(X As Range) Dim Resultvector, xn As Long, i As Long xn = X.Rows.Count ReDim Resultvector(1 To xn) For i = 1 To xn Resultvector(i) = i Next i CubSplineInter = WorksheetFunction.Index(WorksheetFunction.Transpose(Resultvector), 0) End Function

Beliebteste Forumthreads (12 Monate)

VBA Matrix Function Ausgabe funktioniert nicht

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Matrix Function Ausgabe funktioniert nicht

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread