Nummer 1 , twee , en drie van een aantal verspreide cellen

[Oude leerling]

Geacht forum,

Kunt u mij helpen met de code welke bepaald wat uit een aantal cellen
het grootste getal is maar ook de op een na grootste en twee na grootste is
dit dan geplaatst in bv. Cel G5--G6 en G7
Bij voorbaat mijn hartelijke dank

Vriendelijke groet , Jaap

 

[AHulpje]

Een simpel, rechttoe rechtaan macro'tje:

Sub Macrootje()
    Dim r As Integer
    Dim k As Integer
    Dim rij As Integer
    
    For r = 1 To 7
        For k = 1 To 6
            If Cells(r, k) <> vbNullString Then
                rij = rij + 1
                Cells(rij, 7) = Cells(r, k)
            End If
        Next
    Next
    Range("G:G").Sort key1:=Range("G:G"), order1:=xlDescending
End Sub

 

[Oude leerling]

AHulpje,
Ja dat werkt maar zo bedoelde ik het niet
Had mijn vraag duidelijker moeten stellen
Sorry!

In die rijen en kolommen staan nog meer getallen
Het gaat om het zoeken in DIE specifieke posities waarvan dan alleen de grootste , op een na grootste en de 3e plaats

 

[Oude leerling]

De exel formule MAX komt inde buurt wat ik bedoelde
maar deze genereerd alleen de grootste en ik wil ook de nummer twee en drie vinden

 

[zapatr]

Je wil het resultaat vertikaal i.p.v. horizontaal zie ik nu (daarom heb ik vorig bericht verwijderd).

1. Met een formule
Typ in G5 en kopieer naar beneden: =grootste($A$1:$F$40;rij()-4)

2. Met een macro:

Sub macro1()
Dim x As Integer
For x = 1 To 3
Range("G" & x + 4).Value = WorksheetFunction.Large(Range("$A$1:$F$40"), x)
Next x
End Sub

Wat je met DIE specifieke posities bedoelt, is niet duidelijk.

 

[Oude leerling]

Perfect!!
Helemaal goed
Mooie oplossing
Bedankt voor de geboden hulp
Vriendelijke groet , Jaap

 

[snb]

dan liever de formule

=grootste($A$1:$F$40;rij(A1))