ListBox mit vielen Werten befüllen

[Annegret]

Hallo Leute,

ich habe auf meiner Userform ListBoxen, die mit Werten befüllt werden.

Programmiertechnisch gehe ich dabei wie folgt vor:

( Das Ganze hier ist nur ein Beispiel)
Dim ar
ar = Array ("Name", "Vorname", "Alter", "Strasse")

With ListBox1
.Top = 100
.Left = 50
.Height = 200
.Width = 80
.SpecialEffect = fmSpecialEffectEtched
.BackColor = &H8000000F
.Font.Size = 10

For i = LBound(ar) To UBound(ar)
.AddItem ar(i)
Next


End With

Ich durchlaufe also ein Feld und befülle es nacheinander mit den vorgegebenen Feldwerten aus ar.
Klappt bestens. Mein Problem, die Liste der Feldwerte aus ar wird länger und länger.

Jetzt frage ich euch, wie man mit sehr vielen Feldwerten eine solche Befüllung am besten
gestalten würde? Es geht also um eine bessere und sauberere Programmierform.

[Kuwer]

Hallo,

.ListBox1.List = ar

Gruß Uwe