[VBA] Setting 2nd dimention of a 2D-array

[faarikaal]

Hi there

Im trying for quite some time now to set the array in the 2nd dimention of a 2D-array to the result of a function which returns an array of dbl but i just can't get it to work.

The result of the Interpolate-function has the same length as mintSpan.

Any suggestions or comments are welcome... Thanks in advance

ReDim dblProductionRate(1 To 5, 1 To mintSpan)
 
For intHC = 1 To 5
        If CheckHC(intHC) And Owner.CheckHC(intHC) Then
            dblProductionRate(intHC) = InterpolateProductionProfile(intHC, mdblReserves(intHC), GetProfiles(intHC))

 

[Richard Schollar]

Exactly right

 

[faarikaal]

Just to clearify (and be annoying) im posting an example to see if it is in accordence with you guys. Thanks a lot gentlemen!

Function GetArray(ByVal size As Integer) As Double()
 Dim A As Double()
 ReDim A(1 To size)
 ......
 GetArray = A
End Function
.......
Dim A As Double()
ReDim A(1 To 5, 1 To 20)
For i = 1 To 5
 A(i) = GetArray(20)
Next
--------
out = A(i,j)

 

[RoryA]

Nope. Try this:

Function GetArray(ByVal size As Integer) As Double()
 Dim A As Double()
 ReDim A(1 To size)
 ......
 GetArray = A
End Function
.......
Dim A As Variant
ReDim A(1 To 5)
For i = 1 To 5
 A(i) = GetArray(20)
Next i
--------
out = A(i,j)

 

[faarikaal]

Nope. Try this:

out = A(i,j)

I keep getting "Subscript out of range" when trying to get the j element

 

[RoryA]

More typos:

Function GetArray(ByVal size As Integer) As Double()
 Dim A() As Double
 ReDim A(1 To size)
 ......
 GetArray = A
End Function
.......
Dim A As Variant
ReDim A(1 To 5)
For i = 1 To 5
 A(i) = GetArray(20)
Next i
--------
out = A(i)(j)

 

[faarikaal]

Threw this together so you can try for yourself

Function GetArray(ByVal size As Integer) As Double()
    Dim I As Integer
    Dim A() As Double
    ReDim A(1 To size)
    For I = 1 To size
        A(I) = I * I
    Next
    GetArray = A
End Function
Sub Main()
    Dim I As Integer
    Dim J As Integer
    Dim A As Variant
    ReDim A(1 To 5)
    For I = 1 To 5
        A(I) = GetArray(20)
        For J = 1 To 20
            Debug.Print A(I, J)
        Next
    Next I
End Sub

 

[RoryA]

Again:

Debug.Print A(I)(J)

 

[faarikaal]

Sorry. I bit quick there! Updated code works like a dream! Thanks you guys!

Big manly hug from Norway!