Hallo Leute,
ich weiß nicht ob ich hier richtig bin.
Kann mir jmd. sagen wie ich den Code ändern muss, so dass das Array von groß zu klein sortiert wird?
For j = UBound(ArrayToSort) - 1 To LBound(ArrayToSort) Step -1
' Alle links davon liegenden Zeichen auf richtige Sortierung
' der jeweiligen Nachfolger überprüfen:
For i = LBound(ArrayToSort) To j
' Ist das aktuelle Element seinem Nachfolger gegenüber korrekt sortiert?
If ArrayToSort(i) > ArrayToSort(i + 1) Then
' Element und seinen Nachfolger vertauschen.
vTemp = ArrayToSort(i)
ArrayToSort(i) = ArrayToSort(i + 1)
ArrayToSort(i + 1) = vTemp
End If
Next i
Next j
Gruß
Heinrich