Listbox nach ausgewählten Items sortieren
15.11.2003 15:57:59
Dirk
habe folgendes Problem:
In einer UF-Listbox werden Werte aus einer Tabelle eingelesen. Der User kann mehrere Werte auswählen. Nun möchte ich, dass die Listbox nach der Reihenfolge der Auswahl sortiert wird:
Das Item, welches zuerst ausgewählt wird, soll an die erste Stelle in der Listbox rücken, das nächste vom User ausgewählte Item an die zweite Stelle usw.
Die Markierung bei der Auswahl muss natürlich erhalten bleiben!
Begonnen habe ich so, nur die auf die Sortierung komme ich nicht:
Private Sub ListBox1_Change()
Dim j As Integer
For j = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(j) = True Then
'Hier müsste der SortierCode rein
End If
End Sub
Schon jetzt vielen Dank für Eure Hilfe!!
Gruss Dirk