hoogste waarde

[Joske2000]

Hallo,

Ik breek mijn hoofd over het volgende probleem :

Ik heb per lijn de hoogste waarde nodig van de 2 eerst ingebrachte waardes, dus de 3de waarde mag hoger zijn, daar moet geen rekening mee gehouden worden.
Ik heb een voorbeeldje toegevoegd, de waardes die moeten gevonden worden zijn (manueel) geel gekleurd om duidelijk te maken welke waardes moeten gevonden worden.

Thx,

Joske

 

[Cobbe]

Ik heb iets in elkaar gedraaid en het schijnt te werken:

Sub test()
For i = 2 To Range("A65500").End(xlUp).Row
  y = 0
    For y = 2 To 9
        If Cells(i, y) <> "" Then aantal = aantal + 1
        If aantal = 2 Then Cells(i, 11) = WorksheetFunction.Max(Cells(i, 2), Cells(i, y)): GoTo volgende
    Next
volgende:
aantal = 0
Next
End Sub

 

[Joske2000]

@ Cobbe,

Bedankt, deze werkt perfect !

Gr,

Joske

 

[WHER]

Dit kan eventueel ook met een formule, zie bijlage.

 

[Joske2000]

@ Wher

Bedankt, ook deze doet wat ie moet doen !

Thx, :thumb:

Joske