49 Aufrufe
Gefragt in Tabellenkalkulation von addeguddi Experte (2k Punkte)
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

2 Antworten

+1 Punkt
Beantwortet von m-o Profi (21.8k Punkte)

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.

0 Punkte
Beantwortet von addeguddi Experte (2k Punkte)
Hallo M.O.

Danke wunderbar es funktioniert.

Gruß Adde
...