Hinweis:
Zeile 4 würde zum wiedrholten aufruf der Funktion führen, also nicht die gewünschte Wirkung.(Stichwort: Rekursiv)
Schau Dir folgendes an. Dein Feedback wird mir zeigen, ob Ich Dein Ziel richtig verstanden haben:
Option Explicit
Sub test()
Dim x As Double
Dim t(1 To 3, 1 To 1) As Double
Dim ret() As Double
Dim i As Long
x = 1
t(1, 1) = 2.4
t(2, 1) = 3.987654
t(3, 1) = 4.12345
'
ret = FunktionX(x, t())
'
For i = 1 To UBound(ret) Step 1
MsgBox ret(i, 1)
Next
End Sub
Function FunktionX(a As Double, b() As Double) As Double()
Dim i As Long
Dim dblArr() As Double
'
ReDim dblArr(1 To UBound(b, 1), 1 To 1)
For i = 1 To UBound(b)
dblArr(i, 1) = a + b(i, 1)
Next
'
FunktionX = dblArr
End Function
|