Dynamic Array Seems Invalid

Bas · May 20th 2007

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, so what wend
wrong?

Thanks in advance!

- Bas

Code

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

Display More

filo65 · May 21st 2007

Re: Dynamic Array Seems Invalid

Bas,

first of all welcome to the forum.

the code you provide is missing of some variable initialization
where are the initial values for:

Code

TBV ??
TIV2 ??
ClusterMembers() ??

what do you want to achieve with this line?

Code

ClusterValues() = Array(TStV4)

you will assign the array to the first element of the array. Is what you want

can you give some more details and evtl. post a small workbook?

filippo

Dynamic Array Seems Invalid

Participate now!

Share