sortering af range

Stigen/faldende sortering - Menuen Data - Sortering
Tilfældig kræver nok VBA - hvilket kunne medføre, at det alle tre sorteringsformer kun aktiveres via VBA.

Var det en mulighed?

Undskyld det er mig der formulerede mig forkert - Ja sorteringerne skulle gerne aktiveres via vba kode

Vender tilbage...

Koden indsættes i det pågældende ark's VBA-kode:
Kan aktiveres - v/Alt+F8 - afspil makro, der er markeret - eller opret 3 knapper i arket.

Public Sub SortStigende()
    sortStandard xlAscending
End Sub
Public Sub SortFaldende()
    sortStandard xlDescending
End Sub
Public Sub SortTilfældigt()
    sortRandom
End Sub
Private Sub sortStandard(art)
    Range("A1:A10").Sort Key1:=Range("A1"), Order1:=art, _
        Header:=xlGuess, OrderCustom:=1, MatchCase _
        :=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub
Private Sub sortRandom()
Dim rræk, cR(10), flag As Boolean

Rem Gem celle værdier i A1:A10
    For r = 1 To 10
        cR(r) = Cells(r, 1)
    Next
   
Rem Slet indhold
    Range("A1:A10").Clear
   
    For r = 1 To 10
        flag = False
        While flag = False
            Randomize
            rræk = Int((10 * Rnd) + 1)
       
            If Cells(rræk, 1) = "" Then
                Cells(rræk, 1) = cR(r)
                flag = True
            End If
        Wend
    Next r
End Sub

perfekt - point?

Fint - du får et svar...

Måske skulle vi afslutte....

lukketid???

???