Oplichten cel(Regel)kleur indien geselecteerd

[malawi]

Hallo,

Ik heb onderstaande VBA code. Deze werk prima op 1 ding na. Hoe kan ik deze aanpassen zodat ten alle tijde de color index van Cel V6:V9 3(Rood) is wanneer de automatische berekening is uitgeschakeld!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = xlNone

    With Target
        If .Row > 25 Then
            Rows(.Row).Interior.ColorIndex = 20
        Else
            .Interior.ColorIndex = 20
        End If
    End With

End Sub

Ewald

 

[lam201]

zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Cells.Interior.ColorIndex = xlNone
    range("V6:V9").colorindex = 3
    With Target
        If .Row > 25 Then
            Rows(.Row).Interior.ColorIndex = 20
        Else
            .Interior.ColorIndex = 20
        End If
    End With

   'range("V6:V9").colorindex = 3  'of de regel hier plaatsen als ook de geselecteerde cel rood moet blijven
End Sub

 

[emields]

Vergeten van een voorbeeldbestandje te plaatsen?

 

[popipipo]

Dan maar hier een bestandje uit mijn archief
5 tabbladen met 5 verschillende mogelijkheden.

 

[AHulpje]

Bedoel je zoiets: