Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
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.Spalte einer Multiselect-Listbox ausgeben

2.Spalte einer Multiselect-Listbox ausgeben
19.10.2005 13:36:33
Stefan
Hallo,
ich komme damit überhaupt nicht weiter.
Problem:
Habe eine Listbox mit 2 Spalten, die wahlweise
singleselect oder multiselect ist.
Bei singleselect funktioniert die Spaltenauswahl
mit anschliessender Ausgabe einwandfrei:
ListBox1.TextColumn = 1 bzw. 2
ActiveCell.Value = ListBox1.Text
Sobald die Listbox multiselect ist, gibts einen
Fehler an der Stelle ListBox1.TextColumn = 2
Why's that?
Grüsse
Stefan

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2.Spalte einer Multiselect-Listbox ausgeben
20.10.2005 15:48:56
Dennis
Moin Stefan,
ein Multiselect führt dazu, dass eine Art Array befüllt wird (an alle Pros, nicht hauen für die Erklärung ;-) ). Es gibt dann mehrere Werte die in der Listbox stehen. Diese kann man abfragen, indem man, wie im nachfolgendenen Sub beschrieben, die Liste abfragt.

Private Sub CommandButton1_Click()
Dim Text As String
Text = ""
For i = 1 To ListBox1.ListCount          'Alle Listenelemente durchlaufen
If ListBox1.Selected(i - 1) = True Then  'Listenelement ausgewählt?...
Text = Text & ";" & ListBox1.List(i - 1)'... dann Listenelement auslesen
End If
Next
MsgBox Text
End Sub

Ich hoffe das hilft dir weiter.
MfG
Dennis
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige