Array-problem

[Tom]

Hi

I'd like to read the values from a range into an array. Does anybody know,
how to make my example work?

Tom


Sub Test()
Dim aValues As Variant
Dim i As Integer

With ActiveSheet.Range("A1:A10")
aValues = .Value
End With

For i = 1 To UBound(aValues)
Debug.Print aValues(i)
Next i
End Sub

 

[Leo Heuser]

Hi Tom

The created array will be a 2-dimensional one,
so in your situation with only one column use

For i = 1 To UBound(aValues,1)
Debug.Print aValues(i,1)
Next i

 

[Dana DeLouis]

In addition to Leo, if you wish to keep it as a 1-Dim array, you could use
something like this:

Sub Test()
Dim aValues As Variant
Dim i As Integer

aValues = WorksheetFunction.Transpose(Range("A1:A10").Value)

For i = LBound(aValues) To UBound(aValues)
Debug.Print aValues(i)
Next i
End Sub