Macro die één waarde aftrekt met 1

[miicker]

Zou iemand voor mij een macro kunnen maken waarbij een getal dat in bijvoorbeeld cel D2 staat wordt afgetrokken met 1.
Dus staat er in D2 7, dan dient er in die cel 6 te staan na het uitvoeren van de macro.

En heeft iemand ook een macro voor het zelfde maar dan +1. Dus als er 7 staat dient er na het uitvoeren 8 te staan.

Ik gebruik Excel 2010.

Met vriendelijke groet,
Mickey.

 

[Cobbe]

Vwalla, zonder macro.

 

[Janzwart]

Met macro.

Sub plus()
Waarde = Range("B2").Value
Range("B2").Value = Waarde + 1
End Sub

Sub min()
Waarde = Range("B2").Value
Range("B2").Value = Waarde - 1
End Sub

Ik zou gaan voor de oplossing van cobbe.

 

[miicker]

Cobbe, hoe heb je dat gemaakt?

 

[Cobbe]

Ik heb er een filmpje van gemaakt:

http://www.mijnbestand.nl/Bestand-IPC4V7CIUFFA.wmv

 

[miicker]

Thanks!