ListBox Inhalt fortlaufend sortieren
12.11.2003 13:20:13
Marco
mit den folgenden zwei Makros werden bei mir die Tabellenblätter in der Datei in einer ListBox sortiert.
Nur leider nicht fortlaufend (z.B. 1,2,3,4.....10,11,12.....21,22...) sonder immer nach der ersten Zahl (z.B. 1,11,110,111,112,12,128...).
Könnt Ihr mir helfen das so zu ändern, das er fortlaufend sortiert?
Hier die zwei Makros:
Sub FillListSorted()
Dim myArray() As Variant
ReDim myArray(ActiveSheet.ListBox1.ListCount - 1)
For i = 0 To ActiveSheet.ListBox1.ListCount - 1
myArray(i) = ActiveSheet.ListBox1.List(i, 0)
Next
ActiveSheet.ListBox1.Clear
sort_bubble myArray
ActiveSheet.ListBox1.List() = myArray
End Sub
Sub sort_bubble(ByRef data() As Variant)
Dim OG&, i&, h As Variant
OG = UBound(data)
Do
For i = 0 To OG - 1
If data(i) > data(i + 1) Then
h = data(i)
data(i) = data(i + 1)
data(i + 1) = h
End If
Next i
OG = OG - 1
Loop While OG > 1
End Sub
Danke
Marco
Anzeige