sum elements in an Array

[Andre314]

hello,

What's wrong in my function?
I get #Value.

Regards,
Andre

Function total(zeros As Variant) As Double
Dim sum As Double
Dim i As Integer
sum = 0#
For i = 1 To UBound(zeros)
sum = sum + zeros(i)
Next i
total = sum
End Function

 

[Andrew Poulsom]

Welcome to MrExcel.

Your function works for me. In what way doesn't it work for you?

 

[pgc01]

Hi

Without knowing what your zeros variable is we cannot test.

Please post the declaration and initialisation of the variable zeros and also the statement where you use the total function.

 

[Andre314]

Hi

Without knowing what your zeros variable is we cannot test.

Please post the declaration and initialisation of the variable zeros and also the statement where you use the total function.

Sorry, I am new to this forum.
But I want to use this functions as follows:
cell c1 has value 1
cell c2 has value 2
....
cell c10 has value 10

in cell d1 I use the function =total(c1:c10)
This is an example, in reality is the function more complex.
I am using Excel 2003.

 

[VoG]

This is an example, in reality is the function more complex.

You need to post your actual UDF.

 

[Andrew Poulsom]

A Range is not a VBA array. You can't apply UBound to it.