Gibt es eine Möglichkeit alle zu übergebenden Argumente in einer Funktion mit der Option ByVal zu versehen.
Ansonsten müsste ich ja folgendes eingeben:
Function Meine_Funktion (ByVal X1, ByVal X2, ByVal X3, ..... ByVal Xn as Double)
mfg
Leo Gresser
Sub start_test()
Dim testArr() As Variant
testArr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox myFunction(testArr)
End Sub
Function myFunction(argArr() As Variant)
Dim i As Long
Dim tmp As Double
For i = 0 To UBound(argArr)
tmp = tmp + argArr(i)
Next i
my
Function = tmp
End Function
Gruss Rainer
Function Meine_Funktion (X1, X2,.........)
End Function
wobei standardmäßig die Übergabe der Argumente als Referenz erfolgen würde, wenn nicht die Klammern beim Aufruf wären.
viele Grüße
Herby
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen