Bedingte Formatierung
Link
Anzeige
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("A1") = 1 Then
Rows("1").Interior.ColorIndex = 6
End If
End Sub