ListBox nach Datum sortieren
05.03.2018 09:28:01
Merc
wie kann ich, möglich einfach in einer ListBox die eingefügte Liste (nach Datum absteigend) sortieren?
Im Forum habe ich schon etwas gelesen, dass eine zusätzliche Liste auf einer anderen Tabelle erstellt werden müsste. Fand ich zu kompliziert gelöst :/
Ist es einfacher lösbar?
Private Sub LISTE_LADEN_UND_INITIALISIEREN()
Dim lZeile As Long
Dim lZeileMaximum As Long
Dim i As Integer
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Me.Controls("TextBox" & i) = ""
Next i
ListBox1.Clear 'Liste leeren
ListBox1.ColumnCount = 18
ListBox1.ColumnWidths = "0;75;50;100"
lZeileMaximum = Tabelle1.UsedRange.Rows.Count
For lZeile = lCONST_STARTZEILENNUMMER_DER_TABELLE To lZeileMaximum
ListBox1.AddItem lZeile
ListBox1.List(ListBox1.ListCount - 1, 1) = CStr(Tabelle1.Cells(lZeile, 1).Text)
ListBox1.List(ListBox1.ListCount - 1, 2) = CStr(Tabelle1.Cells(lZeile, 2).Text)
ListBox1.List(ListBox1.ListCount - 1, 3) = CStr(Tabelle1.Cells(lZeile, 3).Text)
ListBox1.List(ListBox1.ListCount - 1, 4) = CStr(Tabelle1.Cells(lZeile, 4).Text)
End If
Next lZeile
End Sub