Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1848to1852
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
Inhaltsverzeichnis

2spaltige Listbox

2spaltige Listbox
18.09.2021 13:46:56
Alf16
Hallo,
in einer Userform habe ich eine 2spaltige Listbox. Hiermit erhalte ich den Inhalt der ersten Spalte der ListBox1:

xDaten = ListBox1.Value
Und hiermit schalte ich BoundColumn um, um den Inhalt der 2. Spalte zu erhalten:

ListBox1.BoundColumn = 2
Und hiermit verknüpfe ich die Ausgabe der beiden Listboxspalten:

xDaten = xDaten & " - " & CDate(ListBox1.Value)
Durch das umschalten auf BoundColumn2 startet er jedes Mal die Routine neu. Bisher habe ich das so abgefangen:

If iStrg = 1 Then GoTo weiter
xDaten = ListBox1.Value
iStrg = 1
ListBox1.BoundColumn = 2
weiter:
'* wg ListBox1.BoundColumn-Umschaltung
If iStrg = 2 Then
iStrg = 0
GoTo ende
End If
xDaten = xDaten & " - " & CDate(ListBox1.Value)
iStrg = 2
Das funktioniert zwar, aber ich finde, dass das nicht sehr professionell ist. Gibt es da evtl. eine bessere Lösung?
Vielen Dank
Gruß Alf

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2spaltige Listbox
18.09.2021 14:03:13
onur
Poste die DATEI.
AW: 2spaltige Listbox
18.09.2021 15:07:40
Nepumuk
Hallo Alf,
so:

With ListBox1
xDaten = .List(.ListIndex, 0) & CStr(CDate(.List(.ListIndex, 1)))
End With
Gruß
Nepumuk
AW: 2spaltige Listbox
18.09.2021 16:42:18
Alf16
Hallo Nepumuk,
viiielen herzlichen Dank!!! Das ist ja Mega-Geil!!! Ich bin echt begeistert! Danke!
Gruß Alf
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige