celkleur veranderen bij rechtermuisklik andere cel

Status
Niet open voor verdere reacties.

patrick881

Nieuwe gebruiker
Lid geworden
10 mei 2018
Berichten
3
Beste allen,

Ik zou graag de kleur van een cel (Bijv. M9) willen veranderen door met m'n rechtermuis te klikken op een andere cel (Bijv. A1).
Ik ben nieuw met VBA en kom er niet echt uit. het lukt me wel om cel M9 te veranderen van kleur als ik op M9 klik maar niet als ik op A1 klik. Kan iemand mij hiermee helpen?

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
With Target.Interior
If Not .ColorIndex = xlNone Then
.ColorIndex = xlNone
ElseIf Not Intersect(Target, Range("M9")) Is Nothing Then
.ColorIndex = 3
ElseIf Not .ColorIndex = 3 Then
.ColorIndex = xlNone
End If
End With
Cancel = True

End Sub

Als dit nergens op lijkt of het beter/makkelijker kan hoor ik het ook graag. Alvast bedankt
 
Je wilt de kleur van M9 veranderen als je met rechts op A1 klikt?
 
Probeer dit eens:
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address(0, 0) = "A1" Then
        Range("M9").Interior.ColorIndex = IIf(Range("M9").Interior.ColorIndex = 3, xlNone, 3)
    End If
End Sub
 
Ter leering ende vermaeck denk ik :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan