Redim Preserve a multi-dimen. array.

**david90** · 10-07-2012, 07:31 PM

When I execute the code below, the value of the "element" variable at the last line equals to 1 instead of 3. Can somebody tell me why?

The variable "element" at the last line would equals to 3 if I don't use the preserve keyword with the redim statement.

Please Login or Register  to view this content.

**Leith Ross** · 10-07-2012, 08:31 PM

Hello Today david90 ,

The ReDim statement only affects the last dimension of a multiple dimension array.

**david90** · 10-08-2012, 02:36 PM

are u sure? When I run this code:

ReDim array2(10, 5)
Debug.Print UBound(array2, 1)
Debug.Print UBound(array2, 2)
Debug.Print " "

ReDim array2(5, 3)
Debug.Print UBound(array2, 1)
Debug.Print UBound(array2, 2)
Debug.Print " "

I get 10 5 and 5 3 from the debug.print statement.

However, when I run this code:

ReDim Preserve array2(10, 5)
Debug.Print UBound(array2, 1)
Debug.Print UBound(array2, 2)
Debug.Print " "

ReDim Preserve array2(5, 3)
Debug.Print UBound(array2, 1)
Debug.Print UBound(array2, 2)
Debug.Print " "

I get 10 5 and 10 5. Seems like redim preserve doesn't resize any dimension of a multidimensional array.

**mike7952** · 10-08-2012, 03:33 PM

Try this maybe it will help you see what Leith was trying to point out. You cannot resize the first dimension of an array

Please Login or Register  to view this content.

**Norie** · 10-08-2012, 03:41 PM

david

The value is 1 because there's an error on this line which is repeated twice in the code.

Please Login or Register  to view this content.

The error iscaused by trying to redimension the first element of the array which can't be done, as Leith and Mike have already said

The On Error Resume Next hides the error and VBA just continues on with the rest of the code.