aanvinken + uitvinken

[muze67]

Hoi mensen,

ik heb een bestandje gemaakt waar ik heel simpel bepaalde cellen wil kunnen aanvinken en uitvinken.

Als het aangevinkt wordt zou ik graag een V erin zien en dat de cel lichtblauw gekleurd wordt.
En als ik het uitvink dat het gewoon blanco blijft.

Ik heb het forum al afgezocht maar de oplossingen die ze daarvoor allemaal hadden waren veel complexer dan ik nodig heb, ...

Zie bijlage

 

[mike16]

Hoi, heb je hier wat aan?

Suc6

Groetjes Mike:thumb:

 

[muze67]

dit is ook goed genoeg

alleen de kleur ontbreekt, maar je kan niet alles hebben in de wereld hee, voor mij is het opgelost

THX

 

[EdWel]

Met kleur.

Groet, Ed

 

[mike16]

Niks te danken

Miscchien heb je Hier nog wat aan voor de kleur verandering?

Groetjes Mike:thumb:

 

[snb]

Maar je mag wel bijna alles hebben met:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  With Target
    With .Borders(xlDiagonalDown)
      .LineStyle = IIf(.LineStyle = xlSingle, xlNone, xlSingle)
    End With
    With .Borders(xlDiagonalUp)
      .LineStyle = IIf(.LineStyle = xlSingle, xlNone, xlSingle)
    End With
    .Interior.ColorIndex = IIf(.Interior.ColorIndex = xlNone, 8, xlNone)
  End With
End Sub