das ist von ActiveVB.
Vielleicht kannst du dir da was zusammenstricken:
Code eingefügt mit Syntaxhighlighter 1.16
Public Sub QuickSort(toSortArray() As String, ByVal LB As Single, ByVal UB As Single)
'String Array sortieren, by ActiveVB
Dim P1 As Single
Dim P2 As Single
Dim Ref As String
Dim Temp As String
P1 = LB
P2 = UB
Ref = toSortArray((P1 + P2) / 2)
Do
Do While (toSortArray(P1) < Ref)
P1 = P1 + 1
Loop
Do While (toSortArray(P2) > Ref)
P2 = P2 - 1
Loop
If P1 <= P2 Then
Temp = toSortArray(P1)
toSortArray(P1) = toSortArray(P2)
toSortArray(P2) = Temp
P1 = P1 + 1
P2 = P2 - 1
End If
Loop Until (P1 > P2)
If LB < P2 Then Call QuickSort(toSortArray, LB, P2)
If P1 < UB Then Call QuickSort(toSortArray, P1, UB)
End Sub
Gruss Rainer
für ein eindimemsionales Array
Gruß Hajo
Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel