Datum innerhalb Listbox sortieren
13.05.2020 09:35:33
Wolfgang
der nachfolgende Code "befüllt" eine Listbox mit Daten/Datum. Daten die mehrmals in der Spalte vorkommen, werden dabei auch nur einmal angezeigt - das funktioniert also soweit super. Meine Frage ist nun, ob die Daten innerhalb der Listbox sich ggfs. noch chronologisch sortieren lassen? - Herzlichen Dank schon jetzt für die Rückmeldung und viele Grüße - Wolfgang
Private Sub UserForm_Activate()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 11)), Cells(Rows.Count, 11).End(xlUp).Row, Rows. _
_
Count)
For LoI = 2 To LoLetzte
If WorksheetFunction.CountIf(Range(Cells(2, 11), Cells(LoI, 11)), Cells(LoI, 11)) = _
1 _
Then
ListBox1.AddItem Cells(LoI, 11)
End If
Next LoI
End Sub
