Hi All.

I want to use a one dimension dynamic array, so my declaration is:

Dim myarray()

Redim myarray(x) changes it to a real array.
But how can I determine the state of myarray when it was not redimmed yet .

Thanks,
Stefi

Dear Stefi

May be you can check the number of dimensions using the below proc. and if
it is 0 you can Redim...

Dim myarray()
If GetNumberOfDimensions(myarray) = 0 Then
ReDim myarray(10)
End If


Function GetNumberOfDimensions(arrTemp) As Long
On Error GoTo ErrHandler
Do
intTemp = intTemp + 1
ErrorCheck = UBound(arrTemp, intTemp)
Loop
ErrHandler:
GetNumberOfDimensions = intTemp - 1
End Function


If this post helps click Yes
---------------
Jacob Skaria


"Stefi" wrote:

> The problem is that ISArray() returns TRUE either after Dim myarray() or
> Redim Preserve myarray(x). I want to determine that Redim Preserve
> myarray(x) has already been issued or not.
>
> Thanks,
> Stefi
>
>
> „Jacob Skariaâ€� ezt Ã*rta:
>
> > ISArray() will return TRUE
> >
> > Dim myArray()
> > Msgbox IsArray(myArray)
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "Stefi" wrote:
> >
> > > Hi All.
> > >
> > > I want to use a one dimension dynamic array, so my declaration is:
> > >
> > > Dim myarray()
> > >
> > > Redim myarray(x) changes it to a real array.
> > > But how can I determine the state of myarray when it was not redimmed yet .
> > >
> > > Thanks,
> > > Stefi
> > >

Please refer

http://support.microsoft.com/kb/152288

If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

> Dear Stefi
>
> May be you can check the number of dimensions using the below proc. and if
> it is 0 you can Redim...
>
> Dim myarray()
> If GetNumberOfDimensions(myarray) = 0 Then
> ReDim myarray(10)
> End If
>
>
> Function GetNumberOfDimensions(arrTemp) As Long
> On Error GoTo ErrHandler
> Do
> intTemp = intTemp + 1
> ErrorCheck = UBound(arrTemp, intTemp)
> Loop
> ErrHandler:
> GetNumberOfDimensions = intTemp - 1
> End Function
>
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Stefi" wrote:
>
> > The problem is that ISArray() returns TRUE either after Dim myarray() or
> > Redim Preserve myarray(x). I want to determine that Redim Preserve
> > myarray(x) has already been issued or not.
> >
> > Thanks,
> > Stefi
> >
> >
> > „Jacob Skariaâ€� ezt Ã*rta:
> >
> > > ISArray() will return TRUE
> > >
> > > Dim myArray()
> > > Msgbox IsArray(myArray)
> > >
> > > If this post helps click Yes
> > > ---------------
> > > Jacob Skaria
> > >
> > >
> > > "Stefi" wrote:
> > >
> > > > Hi All.
> > > >
> > > > I want to use a one dimension dynamic array, so my declaration is:
> > > >
> > > > Dim myarray()
> > > >
> > > > Redim myarray(x) changes it to a real array.
> > > > But how can I determine the state of myarray when it was not redimmed yet .
> > > >
> > > > Thanks,
> > > > Stefi
> > > >

the problem with the REDIM() statemtn it is may create an extra item in the
array. For example
Redim A(5) really create 6 items 0 to 5.

If you specfiy
Redim(0 to 4) this will create only 5 items

Also use Preserve so you don't loose you old items after redim

Redim Preserve A(5)

I would test if the array already exits bu use a counter to keep track of
the number of items or use UBOUND to get the upper limits of the array.

You could also make the array size 1 at the beginning of the code
Dim A as variant
Redim A(0 to 0)


"Joel" wrote:

> Redim doesn't change the variable to a real array it creates a second
> variable with the same name as an array.
>
> You should declare the variable as a variant so you don't have two variables
> with the same name
>
> from
> Dim myArray()
>
> to
> Dim MyArray as Variant 'note - no parenthesis
>
>
>
> "Jacob Skaria" wrote:
>
> > ISArray() will return TRUE
> >
> > Dim myArray()
> > Msgbox IsArray(myArray)
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "Stefi" wrote:
> >
> > > Hi All.
> > >
> > > I want to use a one dimension dynamic array, so my declaration is:
> > >
> > > Dim myarray()
> > >
> > > Redim myarray(x) changes it to a real array.
> > > But how can I determine the state of myarray when it was not redimmed yet .
> > >
> > > Thanks,
> > > Stefi
> > >

On May 28, 11:54*am, Stefi <St...@discussions.microsoft.com> wrote:

> Redim myarray(x) changes it to a real array.
> But how can I determine the state of myarray when it was not redimmed yet

You might get a more useful answer if you told us what it is you are trying
to do (that is, why are you trying to check the state of MyArray and what
will you do when you find out).

--
Rick (MVP - Excel)


"Stefi" <(E-Mail Removed)> wrote in message
news:E8C783EE-5DA5-4B7A-AD31-(E-Mail Removed)...
> Hi All.
>
> I want to use a one dimension dynamic array, so my declaration is:
>
> Dim myarray()
>
> Redim myarray(x) changes it to a real array.
> But how can I determine the state of myarray when it was not redimmed yet
> .
>
> Thanks,
> Stefi
>