[VBA]twee variabele verenigen tot een

[Verwijderd]

Gegevens uit een ListBox wil ik in variabele stoppen zodat ik deze later weer in de tabel kan opslaan.

Ik weet echter niet hoeveel gegevens er per keer in de ListBox staan vermeld.
Hiervoor probeer ik dan ook het aantal variabele te generen aan de hand van hoeveel gegevens er in de ListBox staan.

code:

x = 0
aantalPersonen = Keuzelijst.ListCount
Do Until x > Keuzelijst.ListCount - 1
    myPersoon & x = Keuzelijst.ItemData(x)
    x = x + 1
Loop

Maar dit werkt dus niet. Ik moet eigenlijk twee variabele verenigen tot 1
Of denk ik te moeilijk?

[j_du_pee]

wat je zoekt zijn arrays

code:

dim persoon(Keuzelijst.ListCount - 1) as string

en dan verderop

code:

persoon(x) = ...

[ Voor 130% gewijzigd door j_du_pee op 22-10-2004 16:39 ]

[Verwijderd]

ja ja, veel te moeilijk. je moet de listbox in een array (of minder gebruikt, een collection) stoppen:

code:

  Dim pl() As String
  Dim PLS As Long
  ReDim pl(Me.Keuzelijst0.ListCount - 1)
  For PLS = 0 To UBound(pl)
    pl(PLS) = Me.Keuzelijst0.ItemData(PLS)
  Next

zet er ook even bij dat het access is, want de usercontrols zijn anders dan deze in de userforms van excel, word en powerpoint.

[Verwijderd]

Het is inderdaad gelukt zo!