Getallen opplussen mbv macroformule

Question

Goedemorgen,

Ik ben bezig met het maken van een overzichtsdocument binnen Excel waarin ik geturfde gegevens wil verzamelen. Dit betekent dat het document steeds bijgewerkt moet worden. Ik zou graag een formule willen plaatsen die ervoor zorgt dat ik met 1 klik een getal kan opplussen. Binnen het internet is dit vaak mogelijk doordat er een + en/of - achter het invoerveld staat. 

Van de support heb ik te horen gekregen dat dit mogelijk moet zijn met behulp van een macro formule. Ik hoop hier mee te krijgen hoe dit precies in zijn werk gaat. 

Onder het tabblad 'ontwikkelaars' staat onder het koffertje met 'invoegen' een knop met twee pijltjes (omhoog en omlaag). Deze zou ik graag in een cel plaatsen. Wanneer je op het pijltje omhoog klikt zou het getal verhoogd moeten worden (met 1) en als op het pijltje omlaag wordt geklikt zou het getal verlaagd moeten worden (met 1). 

Groetjes

Answer 1

Alissa,

Als je uit dat koffertje de spinbutton neemt uit het onderste gedeelte (ActiveX besturingselementen), en die zet je in Blad1, kun je de volgende code gebruiken:

Private Sub SpinButton1_Change()

    With Me.SpinButton1

        Select Case .Value

            Case 2

                Me.Range(Me.Range("A1")) = Me.Range(Me.Range("A1")) + 1

                .Value = 1

            Case 0

                Me.Range(Me.Range("A1")) = Me.Range(Me.Range("A1")) - 1

                .Value = 1

        End Select

    End With

End Sub

Deze zet je in VBA (o.a. te bereiken via Alt+F4) in de module van Blad1.

(deze module open je door in de Projectverkenner (Ctrl+R) te dubbelklikken op Blad1)

In de Eigenschappen van de Spinbutton (spinbutton selecteren in Ontwerpmodus (knop op lint), knop Eigenschappen op Lint) zet je

Value op: 1

Max op : 2

Min op: 0

Delay (wellicht) op: 100

Als G5 de cel is die je wilt wijzigen met de spinbutton, dan zet je in A1: G5

Hopelijk lukt dit zo.

Jan