Listbox sortieren
14.07.2016 16:03:57
Alex
mit dem folgenden Code möchte ich meine Listbox mit mehreren Spaöten sortieren. Derzeit ist lediglich möglich nach der ersten Spalte zu sortieren. Wie muss ich den Code anpassen, um auch nach anderen Spalten sortieren zu können?
Ich habe schon einiges versucht, leider komm ich nicht weiter.
Public Sub sortieren_Name(lngUgrenze As Long, lngOgrenze As Long)
Dim lngIndex1 As Long, lngIndex2 As Long, strElement As String
Dim strZwischenspeicher(0 To 3) As String, bytIndex As Byte
lngIndex1 = lngUgrenze
lngIndex2 = lngOgrenze
For bytIndex = 0 To 3
strZwischenspeicher(bytIndex) = USF_Uebersicht.LIB_Uebersicht.List(Fix((lngUgrenze + _
lngOgrenze) / 2), bytIndex)
Next
Do
Do While USF_Uebersicht.LIB_Uebersicht.List(lngIndex1, 0) & USF_Uebersicht.LIB_Uebersicht. _
List(lngIndex1, 1) & _
USF_Uebersicht.LIB_Uebersicht.List(lngIndex1, 2) & USF_Uebersicht.LIB_Uebersicht.List( _
lngIndex1, 3) lngIndex2
If lngUgrenze Alex