Von Microsoft gibt es keine Methode in VBA, mit der sich Arrays sortieren lassen.
Mit der folgenden Methode geschieht dies recht schnell.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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 |