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
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