scrollen met 1 button

[edmoor]

Dat zou toch simpel moeten zijn:

ActiveSheet.CommandButton1.Caption = IIf(ActiveSheet.CommandButton1.Caption = "Teams", "Spelers", "Teams")

 

[bowlingman]

Hallo Ed,
Deze code is om de caption van de button te wijzigen en die had ik al.
Het is dus de bedoeling om bij de eerste klik in de cel B1 "Teams" te hebben staan en bij de tweede klik in cel B1 "Spelers" te hebben staan.
Nu kan ik dat wel voor "Teams" met

Private Sub CommandButton1_Click()
      Range("B1").Value = "Teams"
End Sub

maar krijg deze code niet aangepast om na de tweede klik dan "Spelers" te hebben.

Grtjs.
Armand

 

[edmoor]

Dat is wat ik in het begin al zei.
Controleer de caption van de button en reageer daar op.

 

[bowlingman]

Ja, dat had ik gelezen, maar krijg het niet voor elkaar.

Grtjs.
Armand

 

[edmoor]

Je kan gegeven dingen combineren uiteraard.

Private Sub CommandButton1_Click()
    ActiveSheet.CommandButton1.Caption = IIf(ActiveSheet.CommandButton1.Caption = "Teams", "Spelers", "Teams")
    Range("B1").Value =  IIf(Range("B1").Value = "Teams", "Spelers", "Teams")
End Sub

Wat je precies op welk moment in [B1] wilt hebben weet ik niet maar het voorbeeld lijkt me duidelijk genoeg om dat zelf voor elkaar te kunnen krijgen.

 

[bowlingman]

Bedankt Ed,

Dit is precies wat ik nodig heb.

Grtjs.
Armand