Skift farve i celle ved klik

Hvad skal den skifte farve til? Og hvad når du klikker igen?

Denne skifter mellem rød og gul farve i A1, når du klikker i denne. Koden skal lægges i arkets modul:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        If Target.Interior.ColorIndex = 3 Then
            Target.Interior.ColorIndex = 6
        Else
            Target.Interior.ColorIndex = 3
        End If
    End If
End Sub

jeg kan nu godt lide højrekliks funktionen, den kan skifte uden at flytte celle.

På denne kommer højrekliks menuen først frem, efter at farven fjernes


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1:A100")) Is Nothing Then
        If Target.Interior.ColorIndex = xlNone Then
            Target.Interior.ColorIndex = 3
            Cancel = True
        Else
            Target.Interior.ColorIndex = xlNone
        End If
     
    End If
End Sub

Hej
Jeg syntes det er rigtig gode forslag, men de celler jeg skal kunne skifte farve i er fra A1 til I40 farven rød er fin, vis jeg klikker igen vil ingen farve være fin
Mvh/Henrik C

Denne er til højreklik

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("a1:I40")) Is Nothing Then
        If Target.Interior.ColorIndex = xlNone Then
            Target.Interior.ColorIndex = 3
            Cancel = True
        Else
            Target.Interior.ColorIndex = xlNone
        End If
   
    End If
End Sub

Hej
Ja det virker fint, begge forslag smid nogle svar.

et svar ;-))