Makro til at styre indhold i celle og 2 alternativknapper

Jeg har prøvet med:

Public Sub dato()
If Sheets("Graf").Range("Q28") = 1 Then
    Sheets("Graf").Range("Q28") = 2
Else

If Sheets("Graf").Range("Q28") = 2 Then
    Sheets("Graf").Range("Q28") = 1
End If
End If

End Sub

men det virker ikke efter hensigten!

Uden Makro
Liste på Ark2
Et skalafelt-kontorlelement
Cellerne er Q27 for årstal og Q28 for halvår!
http://gupl.dk/675569/
Excel 2010

Hej store-morten

Forstår ikke helt hvad du mener - vil du uddybe?
Du har lavet et link til en hjemmeside - Hvad kan jeg bruge den til?
Hilsen Henrik

Der kan du hente et Excel ark med et eksempel.

Makro

Når jeg laver et skalafelt-kontorlelement hedder det "SpinButton1" i VBA

Denne makro vil jeg gerne afprøve, men hvor skal jeg sætte den ind?
Når jeg laver et modul kan jeg ikke finde den!

Kopier koden.

I arket, på den fane, du har din skalafelt-kontorlelement, der hedder "SpinButton1"
Højre-klik på fane navnet, og vælg "Vis programkode" tryk ctrl + v
Luk på det røde kryds.

Jeg kan simpelt hen ikke finde noget sted, hvor jeg kan omdøbe skalafelt-kontrolelementet til "spinbutton1".
Er du sikker på jeg kan det, når elementet er direkte i regnarket og ikke i en formular?

http://gupl.dk/675663/

Nu er det endelig lykkes mig at få mulighed for at tilføje den ene makro mit kontrolelement.

Jeg slettede "Private" foran sub. Så ser makroerne sådan ud:

Private Sub SpinButton1_SpinUp()
If Range("Q28") = 1 Then
Range("Q28") = 2
Else
If Range("Q28") = 2 Then
Range("Q28") = 1
Range("Q27") = Range("Q27") + 1
End If
End If
End Sub

Private Sub SpinButton1_SpinDown()
If Range("Q28") = 1 Then
Range("Q28") = 2
Range("Q27") = Range("Q27") - 1
Else
If Range("Q28") = 2 Then
Range("Q28") = 1
End If
End If
End Sub

Men jeg kan kun tilføje den ene makro. Hvad gør jeg forkert?
Jeg kan godt se det virker i dit ekempel, men ikke hos mig!

Det virker fint hos mig.

Der skal stå et 1 eller 2 tal i celle Q27
Og der skal stå et årstal i Q28

Eller er det fordi du har valgt 'Skalafelt' i "kontrolelement for formular"

Du skal bruge 'Skalafelt' fra "ActiveX-objekter"
Og i 'Designtilstand' højreklik på 'Skalafelt' og vælge "Vis programkode"
(eller i 'Designtilstand' dobbelt klik på 'Skalafelt')

Jeg har simpelthen prøvet alt. Kan jeg sende arket til dig på mail?

Ja, gør du bare det.

Er sendt!

Sendt retur!

Endte med to knapper(formularkontrolelement) med teksten:
Frem og "Tilbage"

og rettet kode:

Løsning virker

Store-morten smid et svar det virker. Årsagen til at denne løsning ikke virkede hos mig var at jeg har office 2011 til mac...

Og jeg som troede det var ens nu! Det viser sig at office 2011 til mac ikke har ActiveX.

Det har Store-morten også lavet en løsning til, som jeg håber han vil beskrive her :-)

Tak endnu engang!