cel laten opkleuren laten terugkeren in oude cel kleur

[kibus]

Goedemorgen kenners.

Ik heb onderstaande code gevonden om de geselecteerde cel te laten oplichten..
echter hoe moet ik deze code aanpassen zodat de oude celkleur wordt behouden ?? zodra ik de cel verlaat ?

oude kleur was bv rood wordt daarna geel maar zodra de cel verlaten wordt moet hij weer rood worden ...

alvast bedankt voor jullie reactie`s

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldCell As Range

If Not OldCell Is Nothing Then
OldCell.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 6

Set OldCell = Target
End Sub

 

[Cobbe]

Ik zou deze code daarvoor gebruiken, wil je niet je oorspronkelijke opmaak omzeep helpen:

Private Sub Worksheet_SelectionChange(ByVal _
    Target As Range)
    Dim iTeller%


    For iTeller = 1 To 2
        On Error Resume Next
        ActiveSheet.Shapes(IIf(iTeller = 1, "kolom", "rij")).Delete
        On Error GoTo 0
        With _
            ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
            IIf(iTeller = 2, 0, Target.Left), _
            IIf(iTeller = 1, 0, Target.Top), _
            IIf(iTeller = 1, Target.Cells.Width, _
            Cells(Target.Row, 1).Width), IIf(iTeller _
            = 1, Cells(1, Target.Column).Height, _
            Target.Cells.Height))


            .Name = IIf(iTeller = 1, "kolom", _
                "rij")
            With .Fill
                .Visible = msoTrue
                .ForeColor.SchemeColor = 10
                .Transparency = 0.7
            End With
            .Line.Visible = msoFalse
        End With
    Next iTeller
End Sub

 

[kibus]

cel laten opvullen

Dank je wel cobbe voor je reactie,

echter de oude kleur kan divers zijn dus geel rood zwart, en jouw code veranderd niet de active cel maar de bovenste cel... heb je nog een idee?

hoor het graag van je

Edwin