Sub SortListBox()
Dim iLast As Integer, iNext As Integer
Dim iTmp
With ListBox1
For iLast = 0 To .ListCount - 1
For iNext = iLast + 1 To .ListCount - 1
If .List(iLast) > .List(iNext) Then
iTmp = .List(iLast)
.List(iLast) = .List(iNext)
.List(iNext) = iTmp
End If
Next iNext
Next iLast
End With
End Sub
Ich möchte meine Liste, die in der Combobox angezeigt wird sortieren. Habe zu diesem Thema auch in diesem Forum das gefunden. Die Sortierung läuft nicht durch. Mas muss da noch verändert werden? oder was muss ich anpassen?
Danke