Bei Rechtsklick in Zelle Zahl um 1 erhöhen

Question

Hallo und einen schönen Tag

habe wieder einmal eine Frage. Möchte mit Rechtsklick in einer Zelle das sich die Zahl immer um 1 erhöht. Beispiel: aus 1 soll 2, aus 2 soll 3 Usw. werden und bei Doppelklick soll wieder die 1 erscheinen. Ist das möglich.

Für Hilfe wäre ich sehr dankbar.

Gruß Adde

Answer 1

Hallo Adde,

füge die folgenden Codes in das VBA-Projekt des betreffenden Tabellenblatts ein:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A10")) Is Nothing Then
        Cancel = True
        Range("A10") = 1
End If

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("A10")) Is Nothing Then
        Cancel = True
        Range("A10") = Range("A10").Value + 1
End If

End Sub

Hier wird die Zelle A10 angesprochen. Das musst du natürlich auf deine Verhältnisse abändern.

Gruß

M.O.

Answer 2

Hallo M.O.

Danke wunderbar es funktioniert.

Gruß Adde