Ændre farve af række ved markering og tilbage når denne forlades

Hvis du ikke har Betinget Formatering i arket så er det muligt at bruge denne kode.
Den sætter farve vha. betinget formatering og overskriver derfor ikke de formater der er der i forvejen.

Option Explicit
Const iInternational As Integer = Not (0)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iColor As Integer
On Error Resume Next
iColor = Target.Interior.ColorIndex

If iColor < 0 Then
    iColor = 36
Else
    iColor = iColor + 1
End If
If iColor = Target.Font.ColorIndex Then iColor = iColor + 1

Cells.FormatConditions.Delete

With Rows(Target.Row)
    .FormatConditions.Add Type:=2, Formula1:=iInternational
    .FormatConditions(1).Interior.ColorIndex = iColor
End With
End Sub

SUPER BAK!!

Det var lige det jeg skulle bruge.

Sender du et svar?

Hilsen

TVC

ok, godt du kan bruge det :-)