Jagged Array in Excel VBA, Type Mismatch Error [duplicate]

Question

I am trying to create a jagged array with an array of Double() arrays. I am simply trying to add this a() Double into d() dynamically. The error comes when I try to pull one of the copies of a from d, and put it into x.

Sub Test3()
 Dim a() As Double, i As Integer
 ReDim a(1 To 10, 1 To 3)
 a(1, 2) = 3.5

 Dim d() As Variant

 For i = 1 To 3
  ReDim Preserve d(1 To i)
  d(i) = Array(a)
 Next i


 Dim x() As Double
 x = d(1)   ' Error, Type Mismatch

 MsgBox (x(1, 2))

End Sub

It is working now when I ReDim x(1 to 10, 1 to 3). Or when I used the size of d(1). Is there a way to do it without sizing x first? — atomant
– atomant, Commented May 4, 2014 at 1:28

Prabhat Srivastava · Accepted Answer · 2014-05-04 02:24:07Z

1

Try this. Change Array(a) to a.

Sub Test3()
 Dim a() As Double, i As Integer
 ReDim a(1 To 10, 1 To 3)
 a(1, 2) = 3.5

 Dim d() As Variant

 For i = 1 To 3
  ReDim Preserve d(1 To i)
  d(i) = a
 Next i


 Dim x() As Double
 x = d(1)   ' Error, Type Mismatch

 MsgBox (x(1, 2))

End Sub

answered May 4, 2014 at 2:24

Prabhat Srivastava

1971 silver badge7 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Jagged Array in Excel VBA, Type Mismatch Error [duplicate]

1 Answer 1

Comments

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Linked

Related