Excel Zellwert in einem bestimmten Bereich per Klick (Doppelklick) um 1 erhöhen

Hi Folks,

ich hab ne Excelmappe, da wird für die Kassenabrechnung unseres Vereins der Verzehr eingetragen.

-Datum - Name - Betrag - Cola - Wasser - Bier - Snickers - Stück Kreide - etc.

-14.04. - Peters - 10,00 - 10

Bei Cola wurde ne 10 eingetragen,

Ich würde gerne per VBA, dass bei Klick auf der Zelle sich der Wert erhöht um 1 ..
sprich beim nächsten Klick oder Doppelklick? dort ne 11 steht ..

Die Lösungen die ich dazu gefunden habe (leider kann ich selber nicht programmieren) sind leider nicht so gut gewesen, da passierten dann Dinge wie: Auch bei "Enter" wurde die aktive Zelle erhöht, egal wo. Oder, bei jedem Klick (also auch in Bereichen wo nix war oder bei Datum ...) wurden erschienen einsen ...

Vielleicht ist es günstiger oder sicherer per Doppelklick das zu verwirklichen - was dann aber stört, ich rufe den Bearbeitungsmodus auf, sprich der Cursor blinkt dann in der Zelle ... das soll eigentlich auch nicht ....


Mag mir einer helfen .. ich weiß doch, für'n echten Programmierer n 2 -Zeilen und n Kinderspiel obendrein ;)))

Danke ..

Marco

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$D$2" Then Target.Value = Target.Value + 1  
    Target.Offset(1, 0).Select
End Sub

Cancel = True

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$D$2" Then Target.Value = Target.Value + 1  
    Cancel = True
End Sub

    If Application.Intersect(Target, Range("D2:H20")) Is Nothing Then Exit Sub  
    Target.Value = Target.Value + 1
    Cancel = True

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim RangeArea As Range
    
    With Range("A1").CurrentRegion  
        Set RangeArea = Cells(2, 4).Resize(.Rows.Count - 1, .Columns.Count - 3)
    End With
    
    If Not Application.Intersect(RangeArea, Target) Is Nothing Then
        Target = Target + 1:   Cancel = True
    End If
End Sub