Bij iedere activering van een macro: 1 optellen

[RGMeijers]

Geacht forum en deskundigen,

Graag zou ik d.m.v. een macro, wanneer ik die activeer in een door mij gekozen cell, met 1 laten optellen.
Niet zoals in het voorbeeld, waarin ik met de gele macroknop overal 10 krijg. De eerste moet 10 zijn; en maak ik nog een keer gebruik van de macro, moet het 11 worden, 12, 13 etc. In welke cell (kolom) ik dit ook doe.

Al heel veel heb ik aan deze site gehad en te danken maar dit probleem heb ik nergens terug kunnen vinden.
Nu hoop ik dus op een positieve reactie.
Het mag ook met (een deel) VBA wat mij betreft.

Groet,

Erik

 

[spaarie]

Erik,
Ik ziet geen voorbeeld....

Gok dat het zoiets wordt in het beging van je macro...

Sheets("Blad1").Range("A1").Value = Sheets("Blad1").Range("A1") + 1

 

[RGMeijers]

Spaarie,

Bedankt voor je reactie. Maar ik wil geen "vaste" range hebben.
Heb nu wel het voorbeeld bijgevoegd zodat het duidelijker wordt.



De gele knop begint met de waarde 10. De tweede keer zou hij dan 11 moeten zijn, ook al plaats ik de cursor in een heel andere cel.
De andere knoppen idem dito; alleen met een andere beginwaarde.

 

[spaarie]

Met een plaatje kan ik vrij weinig en quoten hoeft niet.

 

[RGMeijers]

Spaarie,

Het tabblad heb ik losgeweekt en voeg deze nu in.
Waarschijnlijk kun je zien wat ik bedoel als je de macro "hulpkleur1" bekijkt.
Ik hoop dat het je lukt want ik ben echt vastgelopen.

Bekijk bijlage Voorbeeld.xls

 

[RGMeijers]

Hallo Spaarie,

Dankzij jouw voorzet (1e bericht) ben ik er toch uitgekomen.
In het geval van de gele kleur (die 11, 12, 13 etc. moeten geven) heb ik dat als volgt gedaan.
In de kolom AA een cel vrijgemaakt ("AA4") voor de macro en de waarde 11 ingetikt.

De macro zelf:

Sub Hulpkleur1()
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveCell.Value = range("AA4")
range("AA4").Select
ActiveCell.Value = range("AA4") + 1
range("A1").Select
End Sub

Werkt perfect!

Hartelijk bedankt voor je oplossing.