Sortere et array ang. som variant

Den hurtige: Smid dit array i et ark, og sorter der.

Den lange:
Sub test()
Dim MitArray, I As Long, Y As Long
MitArray = Range("A1:A6")

For I = 1 To UBound(MitArray)
    For Y = I To UBound(MitArray)
        If MitArray(I, 1) > MitArray(Y, 1) Then
            Temp = MitArray(I, 1)
            MitArray(I, 1) = MitArray(Y, 1)
            MitArray(Y, 1) = Temp
        End If
    Next
Next
Range("B1:B6") = MitArray
End Sub

Bemærk at den sorterer lige så "dumt" som Excels egen "Sorter stigende":

V1
V10
V11
V12
V2
V3
V4
V5
V6
V7
V8
V9

Ville gerne kunne bruge noget a la dette:

Sub SortTest()
    Dim ss(2) As String
    Dim i As Long

    ss(0) = "orange"
    ss(1) = "apple"
    ss(2) = "banana"
    WordBasic.SortArray ss()

    For i = 0 To 2
        Debug.Print ss(i)
    Next i

End Sub

"SortArray will sort an array declared as such, but it will not sort an array that is contained in a Variant. If you create an array like this:

Dim vArray as Variant
vArray = Array("orange", "apple", "banana")

SortArray will not sort it."

Og mit array er en variant....

Der er ikke nogen funktion i Exel der hedder SortArray. Det må være en hjemmelavet en. Fungerer det jeg lavede ikke godt nok for dig?

Undskyld jo den virkede ganske fint efter en lille modifikation

'Sorterer Array så det bliver nemmere at finde landene
  For i = 1 To UBound(InputArray1)
    For Y = i To UBound(InputArray1)
        If InputArray1(i) > InputArray1(Y) Then
            Temp = InputArray1(i)
            InputArray1(i) = InputArray1(Y)
            InputArray1(Y) = Temp
        End If
    Next
  Next

(ellers skrev den "subscript out of range")

Takker

Det gik vidst lidt hurtigt. Sådan skal den være:

Sub test()
Dim MitArray, I As Long, Y As Long
MitArray = Range("A1:A7")

For I = 1 To UBound(MitArray) - 1
    For Y = I + 1 To UBound(MitArray)
        If MitArray(I, 1) > MitArray(Y, 1) Then
            Temp = MitArray(I, 1)
            MitArray(I, 1) = MitArray(Y, 1)
            MitArray(Y, 1) = Temp
        End If
    Next
Next
Range("B1:B7") = MitArray
End Sub

Grunden til din fejl er at du har haft et en-dimentionelt array. I så fald:

For I = 1 To UBound(MitArray) - 1
    For Y = I + 1 To UBound(MitArray)
        If MitArray(I) > MitArray(Y) Then
            Temp = MitArray(I)
            MitArray(I) = MitArray(Y)
            MitArray(Y) = Temp
        End If
    Next
Next