Find og marker mindste tal med en farve i hver række

Hej Martin

Prøv denne her


Sub FindMindste()
    Dim i As Long
    Dim j As Long
    Dim dblMinValue As Double
   
   
    For i = 1 To 10 '-- Antal rækker
        dblMinValue = WorksheetFunction.Min(Range("A" & i & ":GR" & i))
       
        For j = 1 To 200 -- Antal kolonner
            If Cells(i, j).Value = dblMinValue Then
                Cells(i, j).Interior.Color = RGB(200, 200, 200) '-- Farven på den mindste værdi
            End If
        Next
    Next
End Sub

Det virker perfekt, mange tak skal du have ;) !!!