Question : Assign default value to array

Dear experts,
In Excel VBA I define dim ObjAss(100000) as variant.
Now I would like to assign 3240 to each cell of this array as its default intitial value.
Is this possible with looping thru and filling each cell separately?

Kr Eric

Answer : Assign default value to array

Zwiekhorst,

Had a thought, see below.

Patrick
1:
2:
3:
4:
5:

Dim TestStr As String, ObjAss As Variant
 
TestStr = String(100001, "x")
TestStr = Mid(Replace(TestStr, "x", ":3240"), 2)
ObjAss = Split(TestStr, ":")
Open in New Window
Select All
Random Solutions  
 
programming4us programming4us