[Excel] Spinner value probleem

[Denga]

Ik heb een Excel sheet met daarin een Spinner control. Deze functioneerd goed want je kan bij de properties netjes opgeven wat z'n bereik moet zijn etc etc.
Maar nu wil ik naast die ene cel een Macro eraan koppelen die bij het klikken van de spinner (omhoog of omlaag) respectievelijk een letter in een ander veld ophoogd.

Dus:

1=a
2=b

etc
etc

Nu heb ik wat in elkaar geflanst, om wat te proberen:

code:

Sub Spinner_Click()
Sheets("Status").Select
    Range("d1").Select
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + 1
End Sub

In bovenstaand geval heb je een nummer en die hoog je contant met 1 op, maar het verlagen met 1 lukt me niet.
Tevens lukt het me nog nog wel met nummers maar iemand enig idee hoe dit te doen met letters?
En is het mogelijk om aan te geven of er een maximum is? Dus als ik de max van de spinner heb bereikt en ik blijf klikken dat de letter ook niet meer wordt opgehoogd.

Alvast bedankt !

P.s. ik heb google al afgezocht op spinner.value enz enz enz en tevens hier op GoT maar niks bruikbaars kunnen vinden...

[whoami]

vba hoort thuis in off
-> off

[Denga]

Thanx

[Lustucru]

Spinbutton begrenzen tussen65 en 90en dan:

code:

Private Sub SpinButton1_Change()
    Range("d1") = Chr(SpinButton1)
End Subs

of zonder vba: property linkedcel invullen (bv A1) en dan in D1:
=teken(a1)

[Denga]

Ik heb de Offset oplossing gebruikt, nu heb ik 'm al zover...

code:

=COUNTIF(OFFSET('1. Basismodules'!$J$38:$J$41;0;C1;4;1);"No Run")

Maar de height heb ik 4 voor gekozen maar dit is ook afhankelijk... Dus ik heb in de Range '1. Basismodules'!$J$38:&J&41 staan maar die range zou ook ipv die 4 moeten komen...

Dus dat als ik in het andere tabblad (waarnaar ie refereerd) een regel er tussen zet hij meteen de nieuwe range pakt en ik niet handmatig de height van 4 naar 5 moet zetten...