Listbox sortieren

Private Sub Akkudaten()
Worksheets("Berechnung").ListBox1.Clear
Dim InI As Integer
Dim InZeile As Integer
InZeile = 0
With Sheets("Berechnung")
With ListBox1
.ColumnCount = 8
.ColumnWidths = "3,1cm;2,4cm;2,1cm;1,4cm;1,4cm;2,1cm;1,4cm;1,5cm"
End With
For InI = 2 To 500
If Worksheets("Akku-Daten").Cells(InI, 1) kleiner grösser "" Then
If Worksheets("Akku-Daten").Cells(InI, 19) grösser 0 Then
ListBox1.AddItem .Range("A" & InI)
ListBox1.List(InZeile, 0) = Worksheets("AKKU-Daten").Range("A" & InI)
ListBox1.List(InZeile, 1) = Worksheets("AKKU-Daten").Range("C" & InI)
ListBox1.List(InZeile, 2) = Worksheets("AKKU-Daten").Range("N" & InI)
ListBox1.List(InZeile, 3) = Format(Worksheets("AKKU-Daten").Range("O" & InI), "#0 g")
ListBox1.List(InZeile, 4) = Format(Worksheets("AKKU-Daten").Range("P" & InI), "#0 A")
ListBox1.List(InZeile, 5) = Format(Worksheets("AKKU-Daten").Range("Q" & InI), "#0 mAh")
ListBox1.List(InZeile, 6) = Format(Worksheets("AKKU-Daten").Range("R" & InI), "h:mm:ss;@")
ListBox1.List(InZeile, 7) = Format(Worksheets("AKKU-Daten").Range("S" & InI), "#0.- €     ")
InZeile = InZeile + 1
End If
End If
Next InI
End With
End Sub