Bijtellen of aftrekken door muisklik in cell

[mrsnake]

Hallo,

Het is de bedoeling als ik 2x klik op de linkermuisknop dat er in de cell 1 wordt bijgeteld, klik ik 1x rechts dan wordt er -1 gedaan.
De code die ik al heb werkt perfect voor cell B5, maar zou dit net hetzelfde willen bij andere cellen om de score bij te houden als ik erop click, maar dit lukt mij niet.
De cellen waar dit net hetzelfde zou moeten lukken zijn C5,D5,E5,B9,C9,D9,E9

Dit is de code die ik gevonden heb:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("B5")) Is Nothing Then
Range("B5").Value = Range("B5").Value + 1
Cancel = True
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("B5")) Is Nothing Then
Range("B5").Value = Range("B5").Value - 1
Cancel = True
End If
End Sub

 

[edmoor]

Zoiets:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B5:E5")) Is Nothing Or _
       Not Intersect(Target, Range("B9:E9")) Is Nothing Then
        Target.Value = Target.Value - 1
        Cancel = True
    End If
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B5:E5")) Is Nothing Or _
       Not Intersect(Target, Range("B9:E9")) Is Nothing Then
        Target.Value = Target.Value + 1
        Cancel = True
    End If
End Sub

 

[HSV]

Of:

If Not Intersect(Target, Range([COLOR=#0000ff]"B5:E5,B9:E9"[/COLOR])) Is Nothing Then
        Target.Value = Target.Value + 1
        Cancel = True
    End If

 

[edmoor]

Is beter

 

[mrsnake]

Bedankt voor de snelle reactie, maar ik krijg volgende fout in excel 2007

 

[edmoor]

Naast dat je het verkeerd overgenomen hebt is wat je laat zien geen fout.
Het toont waar de fout zich voordoet.
Dan krijg je een melding.
Die melding verteld om welke fout het gaat.

 

[mrsnake]

Deze fout krijg ik als ik op 1 van cellen klik

 

[edmoor]

Als er een spatie of tekst in de betreffende cel staat kan je er uiteraard niet mee rekenen.

 

[mrsnake]

Het is opgelost. Het was omdat er verschillende cellen waren samengevoegd.
Bedankt voor de hulp! :thumb:

 

[snb]

@mrsnake.

Je bent geen nieuweling in het forum.
Van alle gebruikers wordt verwacht dat ze VBA code tussen Code tags zetten.
Kun je dat svp nog even doen in https://www.helpmij.nl/forum/showth...klik-in-cell?p=6161778&viewfull=1#post6161778