Is there a way to count how many elements there are in an array?

[Peter]

But not by doing an for i = lbound(x()) to ubound(x()) and counter?

Thanks

Peter

 

[Ken Johnson]

But not by doing an for i = lbound(x()) to ubound(x()) and counter?

Thanks

Peter

Dim lngElements as Long
lngElements = WorksheetFunction.CountA(x)

will tell you the number of elements in the x array that have been
assigned a value.

Ken Johnson

 

[Guest]

Here is one way, assuming option base zero.

Sub arry()
Dim myArry As Variant
myArry = Array("This", "That", "Other")
MsgBox UBound(myArry) + 1
End Sub

 

[Alan Beban]

If the array (say arr1) is a one-dimensional array or a single column:

no. of elements = Ubound(arr1) - Lbound(arr1) + 1

If it's a 2 dimensional array:

no. of elements = (Ubound(arr1) - Lbound(arr1) + 1) * _
(Ubound(arr1,2) - Lbound(arr1,2) + 1

Alan Beban