Cel kleuren door aanklikken

[Marco9999]

Hallo,

Ik gebruik onderstaande code om automatisch een kruisje in een cel te plaatsen bij het aanklikken van de cel.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("f3:h54")) Is Nothing Then
If ActiveCell Then ActiveCell = "" Else ActiveCell = "X"
End If

Nu wil ik op dezelfde manier een cel rood laten kleuren bij aanklikken.
Ik heb al wat zitten pielen maar ik kom er niet uit.

Iemand een ideetje?

 

[edmoor]

Dat kan met:

Activecell.Interior.Color=255

 

[Marco9999]

Ja hoor, ik heb 'm aan de praat met

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("f3:h54")) Is Nothing Then
If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
End If

If Not Intersect(Target, Range("o3:q54")) Is Nothing Then
If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
End If

End Sub

Dank!

 

[TheBri]

Kan iets korter en met dubbel klik eventueel

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then
If ActiveCell.Interior.Pattern = xlNone Then ActiveCell.Interior.Color = 255 Else ActiveCell.Interior.Pattern = xlNone
End If

End Sub

 

[VenA]

Target staat er niet voor niets als variabele.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then Target.Interior.Color = IIf(Target.Interior.Color = 255, xlNone, 255)
End Sub

Bij een dubbelklik werkt het prettiger zo.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Not Intersect(Target, Range("F3:H54,O3:Q54")) Is Nothing Then
    Target.Interior.Color = IIf(Target.Interior.Color = 255, xlNone, 255)
    [COLOR="#FF0000"]Cancel = True[/COLOR]
  End If
End Sub