HALP! Creating a number of variables based on a variable.

**MarmaladeLover** · 10-23-2014, 09:57 AM

Hallo!
So I have a variable, NumToGen (Integer); I want to create multiple text strings based on NumToGen
So for example,

Dim Header(1 To NumToGen) As String

However, when I attempt to do this, it insists that NumToGen must be a constant; I know a constant cannot be based upon a variable as constants are defined when the macro compiles. Is the situation the same with defining variables?
Any solution to this? I mean, I could theoretically:

Dim Header (1 to 100) As String

and then only actually refer to the variables Header(1 to NumToGen) when I'm coding - for example, via a loop as so:

For iTemp = 1 To NumToGen
     Header(iTemp) = "Marmalade is such a fabulous food item. In fact, " & Range("A" & x + iTemp).Value & " agrees with me!"
Next iTemp

But this means I have a bunch of defined variables floating around which are useless and it seems a bit inefficient.
Any suggestions?
Thanks!
Lady Marmalade

**cytop** · 10-23-2014, 10:06 AM

You need to know the number of elements when declaring an array

You could declare an basic array first

Dim Header() as String  '// Brackets indicate this is an array

Then, when you know how many elements to go in...

NumtoGen = 100
ReDim Header(NumToGen)

That will Redim the array with 100 elements, numbered from 0 to 99. Be careful declaring the lower boundary - it won't take long before you get totally confused with your array starting with 1 and VBAs default lower bound which is 0 - it's the old 'Does the Index start at 0 or 1?' question.