• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

scrollen met 1 button

Status
Niet open voor verdere reacties.
Dat zou toch simpel moeten zijn:
Code: 
ActiveSheet.CommandButton1.Caption = IIf(ActiveSheet.CommandButton1.Caption = "Teams", "Spelers", "Teams")
 
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
Code: 
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
 
Dat is wat ik in het begin al zei.
Controleer de caption van de button en reageer daar op.
 
Je kan gegeven dingen combineren uiteraard.
Code: 
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.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan