Hi,

I want to declare some arrays of constants.
One array has 5 elements as String, and some other arrays can have up to 100
elements as Single.
Can I do it in a single statement like: "Const InterestRate as Single =
0.07" but with allot more data?
Or do I have to first define a variable "Dim InterestRate (1 To 100) as
Single" and then assigning it by "InterestRate =
Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)


Best regards,
/Sören

I don't think that you can do it in the declaration, you need to dim it and
then assign it.

But just dim it as a variant variable, don't bound it.

Dim InterestRate

InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" <(E-Mail Removed)> wrote in message
news:F1FA9197-F029-4B6F-9CBD-(E-Mail Removed)...
> Hi,
>
> I want to declare some arrays of constants.
> One array has 5 elements as String, and some other arrays can have up to
> 100
> elements as Single.
> Can I do it in a single statement like: "Const InterestRate as Single =
> 0.07" but with allot more data?
> Or do I have to first define a variable "Dim InterestRate (1 To 100) as
> Single" and then assigning it by "InterestRate =
> Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)
>
>
> Best regards,
> /Sören

I have found a better soulution:

Dim InterestRate As Variant 'Not needed to do
InterestRate = Array(0.07, 0.071, 0.06, 0.063, 0.055, 0.059)

The Array function is new for me, but I found it in the book 'Excel 2003
Power Programming with VBA', by John Walkenbach, page 295.

BR,
/Sören

"Bob Phillips" wrote:

> I don't think that you can do it in the declaration, you need to dim it and
> then assign it.
>
> But just dim it as a variant variable, don't bound it.
>
> Dim InterestRate
>
> InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")
>
> --
> ---
> HTH
>
> Bob
>
> (change the xxxx to gmail if mailing direct)
>
>
> "Sören_Marodören" <(E-Mail Removed)> wrote in message
> news:F1FA9197-F029-4B6F-9CBD-(E-Mail Removed)...
> > Hi,
> >
> > I want to declare some arrays of constants.
> > One array has 5 elements as String, and some other arrays can have up to
> > 100
> > elements as Single.
> > Can I do it in a single statement like: "Const InterestRate as Single =
> > 0.07" but with allot more data?
> > Or do I have to first define a variable "Dim InterestRate (1 To 100) as
> > Single" and then assigning it by "InterestRate =
> > Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)
> >
> >
> > Best regards,
> > /Sören
>
>
>

Better? Different yes, but not necessarily better.

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Sören_Marodören" <(E-Mail Removed)> wrote in message
news:94A6BB29-2740-4C3B-9BC0-(E-Mail Removed)...
>I have found a better soulution:
>
> Dim InterestRate As Variant 'Not needed to do
> InterestRate = Array(0.07, 0.071, 0.06, 0.063, 0.055, 0.059)
>
> The Array function is new for me, but I found it in the book 'Excel 2003
> Power Programming with VBA', by John Walkenbach, page 295.
>
> BR,
> /Sören
>
> "Bob Phillips" wrote:
>
>> I don't think that you can do it in the declaration, you need to dim it
>> and
>> then assign it.
>>
>> But just dim it as a variant variable, don't bound it.
>>
>> Dim InterestRate
>>
>> InterestRate = Activesheet.Evaluate("{0.07,0.071,0.06,0.063}")
>>
>> --
>> ---
>> HTH
>>
>> Bob
>>
>> (change the xxxx to gmail if mailing direct)
>>
>>
>> "Sören_Marodören" <(E-Mail Removed)> wrote in
>> message
>> news:F1FA9197-F029-4B6F-9CBD-(E-Mail Removed)...
>> > Hi,
>> >
>> > I want to declare some arrays of constants.
>> > One array has 5 elements as String, and some other arrays can have up
>> > to
>> > 100
>> > elements as Single.
>> > Can I do it in a single statement like: "Const InterestRate as Single =
>> > 0.07" but with allot more data?
>> > Or do I have to first define a variable "Dim InterestRate (1 To 100) as
>> > Single" and then assigning it by "InterestRate =
>> > Evaluate("{0.07,0.071,0.06,0.063}") " (I'm not sure if this works...)
>> >
>> >
>> > Best regards,
>> > /Sören
>>
>>
>>