Ez a képlet mûködése miatt van így, meg azért mert nem értek eléggé az excelhez.
Ha a következõ kódot új modulba másolod és lefuttatod akkor a D1 cellától lefelé egymás alá kiírja a maximum ponttal rendelkezõ játékosok nevét.
A Set eredmenyek = Worksheets("Munka1").Range("B:B") sorban a Munka1-t írd át a te munkalapod nevére.
Sub nyertesek()
Dim maxpont As Double
Dim hovategye As Integer
hovategye = 1
Set eredmenyek = Worksheets("Munka1").Range("B:B")
maxpont = Application.WorksheetFunction.Max(eredmenyek)
For i = 4 To 53
If Cells(i, 2).Value = maxpont Then
Cells(hovategye, 4).Value = Cells(i, 1).Value
hovategye = hovategye + 1
End If
Next
End Sub
A sorok sorszámát nem kell bemásolni a makróba.