VBA Array sortieren

Von Microsoft gibt es keine Methode in VBA, mit der sich Arrays sortieren lassen.

Mit der folgenden Methode geschieht dies recht schnell.

Function BubbleSort(ByRef strArray As Variant) As Variant() 
   Dim z       As Long 
   Dim i       As Long 
   Dim strWert As Variant 
     
    For z = UBound(strArray) - 1 To LBound(strArray) Step -1 
        For i = LBound(strArray) To z 
            If LCase(strArray(i)) > LCase(strArray(i + 1)) Then 
                strWert = strArray(i) 
                strArray(i) = strArray(i + 1) 
                strArray(i + 1) = strWert 
            End If 
        Next i 
    Next z 
     
    BubbleSort = strArray 
     
End Function

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht.