Loop through an array and get a value

[JOAO12]

Hello everyone,

I am trying to run the below code in order to loop through a few arrays and get the first value in each array, but, unfortunately it is not working.

The message box should display the values: "1", "4" and "7".

Thanks.

Dim allArrays As Variant, myArray1 As Variant, myArray2 As Variant, myArray3 As Variant, element As Variant

allArrays = Array("myArray1", "myArray2", "myArray3")
myArray1 = Array("1", "2", "3")
myArray2 = Array("4", "5", "6")
myArray3 = Array("7", "8", "9")

For Each element In allArrays
MsgBox element(1)
Next element

 

[Fluff]

Try it like

Dim allArrays As Variant, myArray1 As Variant, myArray2 As Variant, myArray3 As Variant, element As Variant

myArray1 = Array("1", "2", "3")
myArray2 = Array("4", "5", "6")
myArray3 = Array("7", "8", "9")
allArrays = Array(myArray1, myArray2, myArray3)

For Each element In allArrays
MsgBox element(1)
Next element

 

[MoshiM]

Try it like

Dim allArrays As Variant, myArray1 As Variant, myArray2 As Variant, myArray3 As Variant, element As Variant

myArray1 = Array("1", "2", "3")
myArray2 = Array("4", "5", "6")
myArray3 = Array("7", "8", "9")
allArrays = Array(myArray1, myArray2, myArray3)

For Each element In allArrays
MsgBox element(1)
Next element

shouldn't be element(0) or element(lbound(element))

 

[Fluff]

If the Op is running Option Base 1 then the modified code will return the 1st value in each array.
I decided to fix the 1st part of the problem & wait see what the OP said.

 

[JOAO12]

Fluff and MoshiM,

Thank you very much.

Fluff, your code is running properly.

 

[Fluff]

Glad we could help & thanks for the feedback.