Dynamic array seems invalid
 

Hi all,

First of all, I'm a relative newbie when it comes to arrays. I tried
to generate a dynamic array , named 'ClusterValues()' . When I point
my mouse over 'Array(TStV4)' it seems(!) to be a valid array 'saying'
"1, 2, 3" , when I test this array using:

'Application.StatusBar = WorksheetFunction.Index(ClusterValues(), 1,
1)' , the whole array is printed within the status bar, but what wend
wrong?

Thanks in advance!

- Bas


Option Base 1
--
Sub test()

Dim ClusterMembers() As Variant
Dim ClusterValues() As Variant
Dim TBV As Byte
Dim TIV2 As Integer
Dim TIV4 As Integer
Dim TStV4 As String

For TIV4 = 1 To TBV - 1 Step 1
TStV4 = TStV4 & WorksheetFunction.Index(Range("A1").Offset(TIV2,
0).Range("A1:CS1"), 0, WorksheetFunction.Index(ClusterMembers(), 1,
TIV2)) & ", "
Next

TStV4 = TStV4 & WorksheetFunction.Index(Range("A1").Offset(TIV2,
0).Range("A1:CS1"), 0, WorksheetFunction.Index(ClusterMembers(), 1,
TBV))
ClusterValues() = Array(TStV4)

End Sub

Dynamic array seems invalid
 

Not sure what you need the Index function for.
Have a look at this:

Sub test()

Dim i As Long
Dim c As Long
Dim ClusterValues() As Long

ReDim ClusterValues(1 To 10, 1 To 2)

For i = 0 To 9
For c = 0 To 1
ClusterValues(i + 1, c + 1) = i * 2 + c + 1
Next c
Next i

Application.StatusBar = ClusterValues(3, 2)

Range(Cells(1), Cells(10, 2)) = ClusterValues

End Sub


RBS


"Bas" wrote in message
oups.com...
Hi all,

First of all, I'm a relative newbie when it comes to arrays. I tried
to generate a dynamic array , named 'ClusterValues()' . When I point
my mouse over 'Array(TStV4)' it seems(!) to be a valid array 'saying'
"1, 2, 3" , when I test this array using:

'Application.StatusBar = WorksheetFunction.Index(ClusterValues(), 1,
1)' , the whole array is printed within the status bar, but what wend
wrong?

Thanks in advance!

- Bas


Option Base 1
--
Sub test()

Dim ClusterMembers() As Variant
Dim ClusterValues() As Variant
Dim TBV As Byte
Dim TIV2 As Integer
Dim TIV4 As Integer
Dim TStV4 As String

For TIV4 = 1 To TBV - 1 Step 1
TStV4 = TStV4 & WorksheetFunction.Index(Range("A1").Offset(TIV2,
0).Range("A1:CS1"), 0, WorksheetFunction.Index(ClusterMembers(), 1,
TIV2)) & ", "
Next

TStV4 = TStV4 & WorksheetFunction.Index(Range("A1").Offset(TIV2,
0).Range("A1:CS1"), 0, WorksheetFunction.Index(ClusterMembers(), 1,
TBV))
ClusterValues() = Array(TStV4)

End Sub