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