Office: Erhöhung des Zellwertes um 1 bei Knopfdruck

also ich möchte um einen Fragebogen auswerten zu können, den wert in einer zelle per "knopfdruck" oder wie auch immer um 1 erhöhen, quasi ein zählwerk einbauen. hat jemand ne idee?????

 

Hallo,

per Knopfdruck geht es so:

Aus der Symbolleiste der Steuerlement einen Button einfügen und dann dem Button diesen Code geben:

Code:

Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub

Wenn es per Doppelklick auf eine Zelle gehen soll, dann in das Tabellenblattmodul:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address = "$A$1" Then Target.Value = Target.Value + 1
Cancel = True
End Sub

Beide Möglichkeiten (entweder Knopfdruck oder Doppelklick auf A1) erhöhen den Wert um 1.

Alternativ bietet sich auch die Steuerelemente "SpinButton" oder "ScroolBar" an.

 

Super Danke

genau das was ich brauchte :lol: