Gemme største værdi

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("K:K")) Is Nothing Then
        Dim cell As Range
        Application.EnableEvents = False
        For Each cell In Intersect(Target, Me.Range("K:K"))
            If IsNumeric(cell.Value) And cell.Value <> "" Then
                Dim nCell As Range
                Set nCell = cell.Offset(0, 3) ' N er 3 kolonner til højre for K
                If IsEmpty(nCell.Value) Or cell.Value > nCell.Value Then
                    nCell.Value = cell.Value
                End If
            End If
        Next cell
        Application.EnableEvents = True
    End If
End Sub

TaK. Tråden lukkes