Ich will eine Tabelle erstellen um eine Wahl auszuwerten. Dabei soll bei der Auswertung der Wahl nur mit einer Funktionstaste der Wert (Stimmenzahl) um jeweils 1 erhöht werden. Hat jemand eine Idee?
Private Sub Workbook_Open()
Application.OnKey "{F9}", "DeinMakroName"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{F9}"
End Sub