"wcc" skrev i en meddelelse
oups.com...
Hello group,

What's a better way to create an array like this?

Dim arrFieldInfo As Variant
arrFieldInfo = Array(Array(1, 2),Array(2, 2),Array(3, 2),Array(4,
2),Array(5, 2),Array(6, 2),Array(7, 2),Array(8, 2),Array(9,
2),Array(10, 2),Array(11, 2),Array(12, 2),Array(13, 2),Array(14,
2),Array(15, 2),Array(16, 2),Array(17, 2), Array(18,2),Array(19,
2),Array(20, 2),Array(21, 2),Array(22, 2), Array(23, 2), Array(24,
2),Array(25, 2),Array(26, 2),Array(27, 2),Array(28, 2),
Array(29, 2),Array(30, 2),Array(31, 2),Array(32, 2))

Thans for your help.

wcc


Hi wcc

Do you mean something like this?
After running the routine the array NewArray() holds the
values from arrFieldInfo.

Sub test45()
'Leo Heuser, 6 August 2006
Dim arrFieldInfo As Variant
Dim Counter As Long
Dim NewArray() As Variant

arrFieldInfo = Array(Array(1, 2), Array(2, 2), Array(3, 2), _
Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), _
Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), _
Array(14, 2), Array(15, 2), Array(16, 2), Array(17, 2), Array(18, 2), _
Array(19, 2), Array(20, 2), Array(21, 2), Array(22, 2), Array(23, 2), _
Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array(28, 2), _
Array(29, 2), Array(30, 2), Array(31, 2), Array(32, 2))

ReDim NewArray(LBound(arrFieldInfo) To UBound(arrFieldInfo), _
LBound(arrFieldInfo) To LBound(arrFieldInfo) + 1)

For Counter = LBound(NewArray, 1) To UBound(NewArray, 1)
NewArray(Counter, LBound(NewArray)) = _
arrFieldInfo(Counter)(LBound(arrFieldInfo))
NewArray(Counter, LBound(NewArray) + 1) = _
arrFieldInfo(Counter)(LBound(arrFieldInfo) + 1)
Next Counter


End Sub





--
Best regards
Leo Heuser

Followup to newsgroup only please.