Sortieren eindimensionales Array
21.10.2021 21:52:58
SteffenS
ich habe im Netz folgenden Code gefunden um ein eindimensionales Array zu sortieren.
Dieser funktioniert auch ganz gut und ohne Fehler, allerdings fehlt immer der letzte Eintrag im Array.
Was muss ich tun, damit alle Einträge vorhanden sind. Zusätzlich würde ich gern eine Option haben um auf- oder absteigend zu sortieren.
Es wäre Klasse, wenn ihr mir dabei helfen könntet.
'-------------------------------------------------------------------------------------------------------------------
'Sortierung eindimensionales Array - 21.10.2021 StS
'-------------------------------------------------------------------------------------------------------------------
Function SortArray(ByRef SortstrArray As Variant) As Variant()
Dim z As Long, i As Long
Dim strWert As Variant
For z = UBound(SortstrArray) - 1 To LBound(SortstrArray) Step -1
For i = LBound(SortstrArray) To z
If SortstrArray(i) "" Then
If LCase(SortstrArray(i)) > LCase(SortstrArray(i + 1)) Then
strWert = SortstrArray(i)
SortstrArray(i) = SortstrArray(i + 1)
SortstrArray(i + 1) = strWert
End If
End If
Next i
Next z
'Werte einsetzen
SortArray = SortstrArray
End Function
VG
Steffen