Multi Selection in Listbox
16.02.2007 14:16:24
Matthias B.
nach drei Jahren Excel/VBA Abstinenz (und fortschreitender Vergesslichkeit) bin ich mal wieder am Basteln. Und da sind sie mal wieder, meine Probleme und prompt bin ich auch wieder hier.
Aktuell stehe ich vor folgendem:
Ich habe ein Tabellenblatt in dem ich aus der Steuerelement-Toolbox Listboxen eingefügt habe. Das Verhalten ist auf fmMultiSelectExtended gestellt. Daten der Listbox liegen in einem anderen Tabellenblatt. Neben der Box ist ein Button, der dann mein VBA startet
Ich möchte jetzt eigentlich nichts anderes als die Multiselection auslesen und in anderes Tabellenblatt schreiben. Hört sich eigentlich ganz einfach an, aber ich bekomms nicht gebacken. Er will die ganze Zeit ein Objekt definieren.
Hier der interessante Part.
For i = 0 To LB_Region_selected.ListCount - 1
If LB_Region_selected.Selected(i) = True Then
Sheets("Selections").Cells(k, 1) = LB_Region_selected.List(i, 0)
k = k + 1
End If
Next
Gestartet wird das Ganze aus dem Sheet "Anzeige"
Vielen Dank schon mal und Grüße
Matthias