How to get value of an Array in VBA

[ggkrs4]

I have a dynamic array. I want to get the value of each element in the array. I tried array.value and did not work. Can someone help me with it?

Sub TargetArrayValue()
Dim Target() As Integer
ReDim Preserve Target(10)
i = 1

tgtCurrency_ID = "ABC"

'Assigns value to the Target array
For rwIndex = 1 to 100
For colIndex = 2 to 2
With Worksheets("CrossCurrency").Cells(rwIndex,colIndex)
If .Value = tgtCurrency_ID Then
Target(i) = rwIndex 'Gets the rows that has the value 'ABC'
i = i+1
Next colIndex
Next rwIndex

'Want to get the values of the Target array
???????????????????

End Sub


Thanks in advance for the help.

 

[VoG]

Like this perhaps

For i = LBound(Target) To UBound(Target)
    MsgBox Target(i)
Next i

 

[ggkrs4]

Thanks VoG II.

I wanted to get the elements of the array to compare two arrays.

eg.
Target() = (4, 8)
Settle() = (2, 5, 6, 8, 12)

I want to get the values so I can compare Target() and Settle() and get an output of "8".

 

[VoG]

This example might help http://www.mrexcel.com/archive2/71700/83113.htm

 

[jindon]

Sub test()
Dim ary1, ary2, e, temp As String, x
ary1 = Array(4, 8)
ary2 = Array(2, 5, 6, 8, 12)
For Each e In ary1
    x = Application.Match(e, ary2, 0)
    If Not IsError(x) Then temp = temp & " " & e
Next
MsgBox IIf(Len(temp), Join(Split(temp), vbLf), "No match")
End Sub

 

[ggkrs4]

Jindon,
Thanks much, that helped.