Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige