VBA farvelægge markeret celle

Dette indsættes i et standardmodul
Public oldcell As Range
Public oldcolor1 As Long
Public oldcolor2 As Long

dette indsættes i arkets kodemodul

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
On Error Resume Next
oldcell.Interior.ColorIndex = oldcolor1
Cells(oldcell.Row, 2).Interior.ColorIndex = oldcolor2
On Error GoTo 0
Set rng = Range("D7:I16", "K7:L16")
If Not Intersect(Target, rng) Is Nothing Then
    oldcolor1 = Target.Interior.ColorIndex
    oldcolor2 = Cells(Target.Row, 2).Interior.ColorIndex
    'Cells(Target.Row, 2) for kolonne B
    Cells(Target.Row, 2).Interior.ColorIndex = 44 'orange
    Target.Interior.ColorIndex = 44 'orange
    Set oldcell = Target
End If
End Sub


test og se om det opfylder dine krav :-)

Perfekt :-) - næsten. Når jeg markerer J-kolonnen bliver cellerne også farvelagt.

Erstat
Set rng = Range("D7:I16", "K7:L16")
med
Set rng = Union(Range("D7:I16"), Range("K7:N16"))

Bryder mig bedre om denne løsning, som ikke volder så store problemer, men som så til gengæld har andre skavanker.

http://www.eksperten.dk/spm/492623

Men du svarede på spørgsmålet, så smid et svar ....

Det er ikke denne løsning der giver problemer, det er alt andet :-)
Ellers et smart ark. Jeg kan godt lide ideen med disse views..

Ja, jeg ved det er "omgivelserne" som driller :-)
Isoleret set er ovenstående helt ok.