Funktionen / Übergabe von Feldvariablen
24.09.2003 11:51:40
Marcel
Wer kann mir helfen. Ich versuche in einer For-Schleife eine Funktion aufzurufen, in der als Argument eine Feldvariable übergeben wird. Ist dies nicht möglich in VBA? Ich bekomme immer sofort eine Fehlermeldung
Muss ich den Zählparameter der For-Schelife als Argument übergeben??
Muss ich b(n), b() in die Parameterliste schreiben?
Ich weiss keinen Rat mehr, kann mir wer helfen ???
Gruss, Marcel
'Iterationsschleife des Newton Verfahrens'
For n = 2 To nmax
'neue Näherungen für Koeffizienten "a" und "b" berechnen'
b(n) = 2
a(n) = F1A(J, b(), n)
Next n
End Sub
'Nach Ende der Hauptprozedur werden die Funktionen definiert'
Function F1A(J, b(), n) As Double
Dim Feld3() As Double, S3 As Double
ReDim Feld3(J)
S3 = 0
For Zähler = 2 To J
Feld3(Zähler) = EFUNKT ^ (-2 * b(n - 1) * (Cells(Zähler, 3) ^ 2))
S3 = S3 + Feld3(Zähler)
Next
F1A = S3
End Function