Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Tabelle").Select If Range("N16").Value > Range("N19").Value Then Range("N16").Select With Selection.Interior .ColorIndex = 3 ' colore rosso .Pattern = xlSolid End With Else If Range("N16").Value <= Range("N19").Value Then Range("N16").Select With Selection.Interior .ColorIndex = 4 ' colore verde .Pattern = xlSolid End With End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) Sheets("Tabelle").Select If Range("N16").Value > Range("N19").Value Then Range("N16").Interior.ColorIndex = 3 ' colore rosso Else Range("N16").Interior.ColorIndex = 4 ' colore verde End If End Sub