sortering af index i list (uden API)

har du dem liggende i et array eller hvad ?

ja det har jeg

ja det har jeg

send svaret via email fordi jeg går af nu hvis jeg får det svar jeg har brug for sender jeg en email tilbage hvor jeg nævner et tidspunkt jeg vil starte en debat med samme point oplys brugernavn.

min email er chilimaniac@hotmail.com

Denne her kan du bruge (Det er bare den gode gamle QuickSort, men da jeg sidst skulle bruge den, var det hurtigere at kode den selv end at finde den et eller andet sted på nettet):

Sub QuickSort(Array() As Variant, bott As Long, topp As Long)
If topp > bott Then
Dim Narray() As Variant
Redim Narray(bott To topp) As Variant

Dim midd As Long
Dim hix As Long
Dim lox As Long
Dim i As Long

midd = Int((topp + bott)/2)
hix = topp
lox = bott

For i = bott To midd - 1
If array(midd) >= array(i) Then
Narray(lox) = array(i)
lox = lox + 1
Else
Narray(hix) = array(i)
hix = hix - 1
End If
Next

For i = midd + 1 To topp
If array(midd) >= array(i) Then
Narray(lox) = array(i)
lox = lox + 1
Else
Narray(hix) = array(i)
hix = hix - 1
End If
Next

If Not hix = lox Then Error 515

Narray(lox) = array(midd)

For i = bott To topp
array(i) = Narray(i)
Next

Quicksort array, bott, lox - 1
Quicksort array, lox + 1, topp
End If
End Sub