Cel kleuren bij waarde en met dubbelklikken terug naar geen kleur?

[kaan]

Hallo,

Ik wil in een sheet volgende gebruiken:

Als er in een cel warde is dan moet de cel gaan kleuren (het mag kleur rood zijn)
Maar als ik dubbelklik op deze cel dan moet deze cel van kleur dan veranderd.

Met andere woorden: als de cel wel waarde dan kleur en als dubbelklik dan geen kleur.

Ik heb wel een module waarmee ik met dubbelklikken cel kleur kan aanpassen maar hoe pas ik deze code aan zodat hij doet wat ik wil?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _
Boolean)
Const WS_RANGE As String = "F5:L58,S5:Y58"
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
For Each cell In Target
If Target.Interior.ColorIndex = 6 Then
Target.Interior.ColorIndex = xlNone
Else
Target.Interior.ColorIndex = 6
End If
Next
Cancel = True
End If
End Sub

 

[kaan]

Hier is een voorbeeld sheet:

 

[HSV]

Uit je beschrijving wordt ik niet echt veel wijzer.
Test het maar eens, dan vernemen we het wel.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2:L30")) Is Nothing Then
  Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 6, xlNone, 6)
  Cancel = True
 End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:L30")) Is Nothing Then
  Target.Interior.ColorIndex = IIf(Target.Value > 0, 6, xlNone)
End If
End Sub

 

[kaan]

Hi Harry,

Ik heb je code even getest, dit is precies wat ik wilde en nodig heb.
Het werkt en doet precies wat ik wil!
Erg veel dank voor je hulp.
Kaan

 

[HSV]

Graag gedaan Kaan.