Benutzerdefinierte Funktionen und Zwischenwerte
11.02.2003 19:13:54
Tobias
Ich habe folgende frage:
Gibt es eine Möglichkeit bei einer Benuzterdefinierten Funktion Zwischenwerte in eine Tabelle zurück zu geben?
Beispiel:
Function Berechnung( _
dLength As Double, _
dWidth As Double, _
dHeight As Double) As Variant
Dim arr(0 To 2) As Double
arr(0) = dLength * dWidth
arr(1) = dLength * dWidth * dHeight
arr(2) = 2 * (dLength * dWidth + dLength _
* dHeight + dWidth * dHeight)
Berechnung = arr(1)
Zwischenwert= arr(0)
End Function
Wenn ja würde ich mich über eine kurze hilfestellung freuen.
Danke Tobias