Ændre baggrundsfarve i den række som en celle er markeret i

Sæt denne kode ind i arkets modul,

Dim OldRow As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RW = Target.Row
Rows(RW).Interior.Color = vbYellow
If OldRow <> 0 Then
Rows(OldRow).Interior.ColorIndex = xlNone
End If
OldRow = Target.Row
End Sub


Bemærk, hvis du har baggrundsfarve på cellerne, forsvinder de

Tusind tak for hjælpen!

Sender du et svar?

Mvh. TVC

et svar ;-))

Hej kabbak,

Det virker jo perfekt.
Ville de være muligt at ændre koden således, at farven følger cursoren ned igennem rækkerne uden at man skal klikke?

Hilsen KOL

Desværre, regnearket kan ikke føle musen, så du er nødt til at klikke.

Bemærk lige at efter at du har haft mappen lukket, kan den ikke finde ud af at fjerne farven på den du forlod sidst, men klik ind i den igen og den vil forsvinde næste gang du flytter.

Øv!

KOL