Sortering i array

Det fremmer sikkert interessen hvis du lukker åbne pørgsmål

du har sikkert ret

Der findes ikke en egentlig sorteringsrutine i VBA
som du ser er det nødvendigt at køre array igennem via en løkke
og er der mange data, så tager det tid
Er der en bestemt grund til at du vil gøre det i vba ?

Option Base 1

Sub Sorter()
Dim a(5)
Dim b(5)
Dim c(5)

For t = 1 To 5
a(t) = Cells(t, 1): b(t) = Cells(t, 2): c(t) = Cells(t, 3)
Next

For t = 1 To UBound(b)
For t2 = t To UBound(b)
If UCase(b(t2)) < UCase(b(t)) Then
a1 = a(t): b1 = b(t): c1 = c(t)
a2 = a(t2): b2 = b(t2): c2 = c(t2)
a(t) = a2: b(t) = b2: c(t) = c2
a(t2) = a1: b(t2) = b1: c(t2) = c1
End If
Next
Next

Range("A1:A" & UBound(a)) = WorksheetFunction.Transpose(a)
Range("B1:B" & UBound(b)) = WorksheetFunction.Transpose(b)
Range("C1:C" & UBound(c)) = WorksheetFunction.Transpose(c)

End Sub

Ok. Jeg har løst problemet, drop et svar. Det er det andet problem, mange ligger ikke svar, men kun en kommentar. ;-)

ok