Listbox bei Laufzeit sortieren?

Public Function Liste_Sortieren(Liste As ListBox) Dim i As Long Dim x As Long Dim TMP As String Dim ARR() As String Dim bAdd As Boolean Dim nCount As Long ' alle Einträge in einen String speichern For i = 0 To Liste.listCount - 1 TMP = TMP & Liste.List(i) & "¦¦" Next i If Len(TMP) > 0 Then TMP = Left$(TMP, Len(TMP) - 2) ' String splitten ARR() = Split(TMP, "¦¦") With Liste ' Liste löschen .Clear ' macht das Ganze noch etwas schneller .Visible = False ' alle Einträge des Arrays durchlaufen und ' sortiert in die ListBox schreiben nCount = UBound(ARR) For i = 0 To nCount bAdd = True For x = 0 To .listCount - 1 If .List(x) > ARR(i) Then .AddItem ARR(i), x bAdd = False: Exit For End If Next x If bAdd Then .AddItem ARR(i) Next i ' Listendarstellung wieder einschalten .Visible = True End With End Function

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
die Sortierroutine:

Option Explicit

Private Enum SORT_VALUE
    Sort_Text
    Sort_Numeric
    Sort_Date
End Enum

Private Sub QuickSort(ByVal pvlngLBound As Long, ByVal pvlngUBound As Long, _
        ByVal pvlngColumn As Long, ByRef probjListBox As MSForms.ListBox, _
        ByVal pvenmlngSortValue As SORT_VALUE)

    Dim ialngIndex1 As Long, ialngIndex2 As Long, ialngIndex3 As Long
    Dim vntTemp As Variant, vntBuffer As Variant

    ialngIndex1 = pvlngLBound
    ialngIndex2 = pvlngUBound

    With probjListBox

        Do

            Select Case pvenmlngSortValue
                Case Sort_Text
                    vntTemp = .List((pvlngLBound + pvlngUBound) \ 2, pvlngColumn)
                    Do While .List(ialngIndex1, pvlngColumn) < vntTemp
                        ialngIndex1 = ialngIndex1 + 1
                    Loop

                    Do While vntTemp < .List(ialngIndex2, pvlngColumn)
                        ialngIndex2 = ialngIndex2 - 1
                    Loop
                Case Sort_Numeric
                    vntTemp = CDbl(.List((pvlngLBound + pvlngUBound) \ 2, pvlngColumn))
                    Do While CDbl(.List(ialngIndex1, pvlngColumn)) < vntTemp
                        ialngIndex1 = ialngIndex1 + 1
                    Loop

                    Do While vntTemp < CDbl(.List(ialngIndex2, pvlngColumn))
                        ialngIndex2 = ialngIndex2 - 1
                    Loop
                Case Sort_Date
                    vntTemp = CDate(.List((pvlngLBound + pvlngUBound) \ 2, pvlngColumn))
                    Do While CDate(.List(ialngIndex1, pvlngColumn)) < vntTemp
                        ialngIndex1 = ialngIndex1 + 1
                    Loop

                    Do While vntTemp < CDate(.List(ialngIndex2, pvlngColumn))
                        ialngIndex2 = ialngIndex2 - 1
                    Loop
            End Select

            If ialngIndex1 <= ialngIndex2 Then

                For ialngIndex3 = 0 To .ColumnCount - 1
                    vntBuffer = .List(ialngIndex1, ialngIndex3)
                    .List(ialngIndex1, ialngIndex3) = .List(ialngIndex2, ialngIndex3)
                    .List(ialngIndex2, ialngIndex3) = vntBuffer
                Next

                ialngIndex1 = ialngIndex1 + 1
                ialngIndex2 = ialngIndex2 - 1

            End If
        Loop Until ialngIndex1 > ialngIndex2
    End With

    If pvlngLBound < ialngIndex2 Then Call QuickSort(pvlngLBound, _
        ialngIndex2, pvlngColumn, probjListBox, pvenmlngSortValue)
    If ialngIndex1 < pvlngUBound Then Call QuickSort(ialngIndex1, _
        pvlngUBound, pvlngColumn, probjListBox, pvenmlngSortValue)

End Sub

Aufrufen kannst du sie so:

Private Sub CommandButton1_Click()
Call QuickSort(0, ListBox1.ListCount - 1, 2, ListBox1, Sort_Date)
End Sub

Die erste 0 bleibt fest, beim 2. Parameter musst du die Listbox anpassen genauso wie beim 4. Parameter. Der dritte Parameter gibt die Spalte an welche sortiert werden soll. Beachte, die erste Spalte hat die Nummer 0. Im 5. Parameter gibst du an um welche Art von Daten es sich handelt die sortiert werden.
Gruß
Nepumuk

With Sheets("Tabelle1").Cells(1, 1).Resize(ListBox1.ListCount, ListBox1.ColumnCount) .NumberFormat = "@" .Value = ListBox1.List .Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo ListBox1.List = .Value .ClearContents End With

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox bei Laufzeit sortieren?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread