Help with an array

[nuggett]

Can anyone tell me why this doesn't work. I have checked the locals window which confirms dteTme has 1 to 358 elements.

New to arrays and need some help.

Cheers

Mark

Sub testzone()
    Dim DteTme()
    Dim RoundedDteTme(1 To 358)
    
    DteTme = Range("E3", Range("E3").End(xlDown))
    
    x = 1
    
    For Each element In DteTme
        RoundedDteTme(x) = DteTme(x)
        x = x + 1
    Next element

End Sub

I currently get a subscript out of range error on the following line:

RoundedDteTme(x) = DteTme(x)

 

[SQUIDD]

Hi mark

Could you tell me exactly what you are trying to do please.

Dave

 

[Norie]

DteTme is a 2-dimensional array.

Sub testzone()
    Dim DteTme()
    Dim RoundedDteTme(1 To 358)
    
    DteTme = Range("E3", Range("E3").End(xlDown))
    
    x = 1
    
    For Each element In DteTme
        RoundedDteTme(x) = DteTme(x, 1)
        x = x + 1
    Next element

End Sub

 

[nuggett]

Thanks Norie
How can I assign it as a single dimensional array, I only want it to take values from one column in the sheet.

 

[Norie]

If you want a single dimension array use Application.Transpose.

    DteTme = Application.Transpose(Range("E3", Range("E3").End(xlDown)).Value)