Score automatisch + 1 optellen

[jan007]

Hallo,
Ben al een paar dagen aan het ploeteren met een waarschijnlijk erg makkelijk op te lossen onderwerp.
Ik maak gebruik van een score formulier dat tijdens sportwedstrijden bijgehouden wordt. " Vroeger" zat je streepjes te zetten maar ik wil eigenlijk het op de tabblad laten doen en dan in excel.
het is erg simpel. Als een speer schiet wil ik dat door " iets in te voeren" een het aantal schoten automatisch wordt opgeteld (meeloopt).
Bij ieder schot type ik dus bijvoorbeeld het cijfer 1 en wat er meeloopt is de som van steeds + 1. Dus bij het 2e schot type ik 1 en automatisch gaat het totaal naar 2 enzovoort.
(bestandje zit in bijlage)
Alvast dank voor de hulp. Bekijk bijlage Voorbeeld.xlsx

 

[VenA]

Volgens mij kan dit alleen met VBA en dan krijg je zoiets.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:K2")) Is Nothing Then
    Application.EnableEvents = False
    Target.Offset(1) = Target.Offset(1) + Target.Value
    Application.EnableEvents = True
End If
End Sub

 

[HSV]

Misschien nog even het bereik aanpassen naar K14, en een foutafhandeling er in.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:K14")) Is Nothing Then
 If Target.Count = 1 Then
 If Target.Row Mod 2 = 0 Then
    Target.Offset(1) = Target.Offset(1) + Target.Value
   Else
    Application.Undo
  End If
End If
End If
Application.EnableEvents = True
End Sub

Edit: ook voor het deleten van de score om opnieuw te beginnen.

 

[jan007]

Bedankt voor de antwoorden. maar dit gaat ietsje verder als een formule.
Ik zal even vertellen wat ik doe als ik het bestand geopend heb.

ik selecteer het gebied met de cijfers,
ik open visual basic en
via invoegen voeg ik een module toe,
Ik knip en plak de code in het module veld,
klik op opslaan
en dan..... niets

Ik heb nog in de module via "Sub/Form uitvoeren" een macronaam aangemaakt en daarna bovenstaande stappen uitgevoerd maar ook dat lukt net.... Ik doe van alles fout waarschijnlijk. Hoop dat jullie tips hebben. Ik heb ene screenshot toegevoegd.
Nu naar het werk ;-)

 

[VenA]

Je moet de code in de bladmodule van blad1 zetten.

 

[jan007]

Top, het werkt!! TX