Groß und Kleinschreibung bei Sortierung...

Private Sub sortierenList(Untergrenze As Long, Obergrenze As Long)
Dim currentCell As Range
Set currentCell = Worksheets("Aktivitaeten").Range("A1")
If Not IsEmpty(currentCell) Then
Dim index1 As Long, index2 As Long, Element As String, Zwischenspeicher As String
index1 = Untergrenze
index2 = Obergrenze
Zwischenspeicher = lstAkti.List(((Untergrenze + Obergrenze) / 2) \ 1)
Do
Do While lstAkti.List(index1) < Zwischenspeicher
index1 = index1 + 1
Loop
Do While Zwischenspeicher < lstAkti.List(index2)
index2 = index2 - 1
Loop
If index1 <= index2 Then
Element = lstAkti.List(index1)
lstAkti.List(index1) = lstAkti.List(index2)
lstAkti.List(index2) = Element
index1 = index1 + 1
index2 = index2 - 1
End If
Loop Until index1 > index2
If Untergrenze < index2 Then Call sortierenList(Untergrenze, index2)
If index1 < Obergrenze Then Call sortierenList(index1, Obergrenze)
End If
End Sub