Data sortering

Noget i stil med:

=STØRSTE(a1:p1;1)+STØRSTE(a1:p1;2)+...+STØRSTE(a1:p1;10)

Bagefter kan du sortere på kolonne Q

Hvis du indsætter denne her...
------------------------------

Public Function SumAfBedste(Omraade As Range, Antal As Integer)

Dim topScores() As Variant
ReDim Preserve topScores(Antal - 1)
Dim stoerste As Variant
Dim sum As Integer
Dim fundet As Boolean

Dim i As Integer
Dim j As Integer
Dim mindste As Variant
Dim indexAfMindsteTalIArray As Integer
Dim mindsteTalIArray As Variant

mindste = Application.WorksheetFunction.Min(Omraade)

For i = 0 To Antal - 1
    topScores(i) = mindste
Next i

mindsteTalIArray = mindste
indexAfMindsteTalIArray = 0
sum = 0

For Each c In Omraade
    If Application.WorksheetFunction.IsNumber(c.Value) = False Then
        GoTo Skip
    End If

    mindsteTalIArray = topScores(0)
    indexAfMindsteTalIArray = 0
    For j = 0 To UBound(topScores)
        If topScores(j) < mindsteTalIArray Then
            mindsteTalIArray = topScores(j)
            indexAfMindsteTalIArray = j
        End If
    Next j
        fundet = False
        For i = 0 To Antal - 1
            If c.Value > topScores(i) Then
                fundet = True
                stoerste = c.Value
            End If
        Next i
        If fundet = True Then
            topScores(indexAfMindsteTalIArray) = stoerste
        End If
Skip:
Next c

For i = 0 To UBound(topScores)
    sum = sum + topScores(i)
Next i

SumAfBedste = sum

End Function
--------------------------

...i arkets kodemodul, kan du bruge den som en almindelig Excel funktion.
Den tager parametrene Omraade og antal.

f.eks. Omraade = A1:A10, antal = 3
Den returnerer summen af de højeste 3 tal i omraadet A1:A10

En array formel skulle også kunne gøre det:
=SUM(STØRSTE(A1:P1;ROW(1:10)))
Afsluttes med ctrl-shift-enter istedet for bare enter, så den får tuborgklammer omkring {}

Sorry, sådan noget sker når man bruger engelsk version.
=SUM(STØRSTE(A1:P1;RÆKKE(1:10)))

bak >> Det var ellers sjovt at skyde gråspurve med kanoner  :-)
Jeg må hellere kigge lidt nærmere på de der array formeler

Er lige kommer tilbage på pinden, og kigger nærmere på bak´s svar først

Deler bare point ud da det blev løst af en kollega :o)
Har ikke fået testet jeres svar selv...