Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 mehrspaltige ListBoxen

2 mehrspaltige ListBoxen
14.10.2005 12:38:28
Sven
Hallo,
kann mir jemand bei meinem Problem helfen?
Ich habe in einer UserForm zwei mehrspaltige Listboxen.
Die erste lasse ich über lstBox1.RowSource = "Artikelliste" mit
Artikel-Nr,Bezeichnung,Größe füllen. Jetzt soll über einen Button
die Mehrfachauswahl der lstBox1 in die lstBox2 genauso mit den
drei Spalten übernommen werden.
Ich kann immer nur eine Spalte in die lstBox2 übernehmen.
Habe schon alles durchgegoogelt - ohne Erfolg :(
Würde mich über jede Hilfe freuen.
MfG Sven
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 mehrspaltige ListBoxen
16.10.2005 16:17:48
Beni
Hallo Sven,
Gruss Beni
lstBox1.ColumnCount = 3
lstBox2.ColumnCount = 3
lstBox1.MultiSelect = fmMultiSelectExtended
For i = 0 To lstBox1.ListCount - 1
l = lstBox2.ListCount
If lstBox1.Selected(i) = True Then
lstBox2.AddItem lstBox1.List(i, 0)
lstBox2.List(l, 1) = lstBox1.List(i, 1)
lstBox2.List(l, 2) = lstBox1.List(i, 2)
End If
Next i
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige