tilføje nyt element i array

'ubound fortæller dig hvor mange elementer der er i arrayet

'ubound(arrtmp())

'hvis du vil tilføje et nyt element til et array kan du bruge

'ReDim Preserve ArrTmp(5)

Dim ArrTmp() As String

ReDim ArrTmp(4)

ArrTmp(0) = "yada"
ArrTmp(1) = "yada"
ArrTmp(2) = "yada"
ArrTmp(3) = "yada"
ArrTmp(4) = "yada"

ReDim Preserve ArrTmp(5)

ArrTmp(5) = "yada1"

Debug.Print ArrTmp(5)

'det er ikke helt rigtig hvad jeg skriver
'hvilket du kan se på eksl.
Dim ArrTmp(6 To 10) As String

LBound(ArrTmp) vil give 6
UBound(ArrTmp) vil give 10

Hej,

Steyr skal så huske at oprette array'et som dynamisk.  Hvis det er med et fast antal elementer vil ubound angive det sidste, selv om det intet indeholder.

Ved et evt. array med fast antal, (f.eks. et i flere dimensioner), kan man
med en løkke teste på om et element indeholder noget.

For a = 0 to Ubound(var)
  if len(var(a)) = 0 then exit for
next a
  var (a) = "nyt indhold"

M.v.h.  Jørn

//lokespas

Har kigget på UBound og LBound, men de fortæller jo kun 'øvre' og 'nedre' grænse i arrayet.
Jeg har brug for at vide, hvor mange pladser der p.t. er optaget i arrayet, og sikre mig, at det nye element som skal tilføjes - bliver tilføjet på første ledige plads i arrayet...

// joern

Du er inde på noget af det rigtige!
Jeg tester lige din løkke....

// joern

Perfekt! Det var lige det jeg skulle bruge...

// lokespas

Jeg tror jeg kan bruge dit svar senere i min programmering!

tjaa det ser ud til jeg har misforstået spørgsmålet. Det hele, som joern skriver, kan gøres med en løkke

//lokespas

Måske bare min beskrivelse der sucks lidt.... men jeg tror jeg kan bruge ReDim og Preserve i en anden sammenhnæng