De laagste genoteerde getal onthouden.

[edmoor]

Dat zou zo moeten werken:

Private Sub Worksheet_Calculate()
    On Error Resume Next
    For i = 1 To 50
        If Cells(i, 9) < Cells(i, 11) Then Cells(i, 11) = Cells(i, 9)
        If Cells(i, 22) < Cells(i, 23) Then Cells(i, 23) = Cells(i, 22)
    Next i
End Sub

 

[Cobbe]

En waarom zou dat niet werken?

Private Sub Worksheet_Calculate()

    On Error Resume Next
    For i = 1 To 50
        If Cells(i, "I") < Cells(i, "K") Then Cells(i, "K") = Cells(i, "I")
        If Cells(i, "V") < Cells(i, "W") Then Cells(i, "W") = Cells(i, "V")
    Next i
    
End Sub

 

[88Gamer88]

Helemaal top bedankt :thumb:

Even uit nieuwsgierigheid als ik nu niet de laatste waarde maar de hoogte waarden zou willen noteren.
Wat zou er dan veranderd moeten worden aan de script ?

Volgens mij de Cel volgorde toch ?

 

[Cobbe]

> en < omwisselen

 

[edmoor]

De kolomletters in plaats van de cijfers mag inderdaad ook.
Om je vraag in #23 te beantwoorden, wijzig dan het < teken in het > teken.