Opgelost Klik

[xbox360]

Hoi,
ik gebruik deze code al best lang en werkt perfect,
maar is het mogelijk als ik weer op de zelfde cel klik dat het dan weer blanco wordt ( 1 klik )

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target.Interior
.ColorIndex = Switch(.ColorIndex = -4142, 10, .ColorIndex = 0, 10, .ColorIndex = 10, 46, .ColorIndex = 46, 3, .ColorIndex = 3, 0)
End With
End Sub

Alvast weer bedankt

 

[E v R]

Met 1 klik zul je wat omslachtiger code moeten gebruiken, maar met een rechtermuisklik leegmaken is wellicht een optie:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    With Target.Interior
        .ColorIndex = xlNone
    End With
    Cancel = True
End Sub

 

[xbox360]

@E v R

Thnx dit is ook een goede oplossing super bedankt