useform aanpassen

[Egbert12345]

Beste forummers,

Ik wil graag een useform samenstellen, ik heb een klein voorbeeldje toegevoegd met een opdrachtknop test (zie VBA s.v.p.). Nu wil ik dat de tekst van deze opdrachtknop wordt gewijzigd en dan bedoel ik de aansturing daarvoor. Soms kan het "test" zijn, maar soms ook "test1".
Waarom, ik ga het gebruiken voor een ledenadministratie van meerdere verenigingen en dan wil de naam laten aanpassen. Kan dat door middel van een macro of iets dergelijks, of vraag ik naar een onmogelijkheid?

gr Egbert

 

[Joske2000]

Hi Egbert,

Met deze code neemt hij de waarde van A1 om de tekst op de opdrachtknop te bepalen.

Private Sub UserForm_Initialize()
Dim i As String
    i = Sheets("Blad1").Cells(1, 1)
    
    CommandButton1.Caption = i
End Sub

Groet,

Joske

 

[edmoor]

Of bij het klikken op de knop:

Private Sub CommandButton1_Click()
    With CommandButton1
        .Caption = IIf(.Caption = "test", "Test1", "test")
    End With
End Sub

 

[Egbert12345]

Geweldig Joske en Edmoor, dit is wat ik zocht.

m.vr.gr. Egbert

 

[VenA]

Waarom geen ToggleButton?

Private Sub ToggleButton1_Click()
  ToggleButton1.Caption = "test" & IIf(ToggleButton1, "", 1)
End Sub

 

[Egbert12345]

Ga ik zeker proberen.

Een andere vraag aangaande dit onderwerp.
Is het ook mogelijk om een deel van de tekst te onderstrepen of een andere tekstkleur te geven?

 

[edmoor]

Kijk in de eigenschappen van het Button object bij Font.

 

[Egbert12345]

Bedankt Edmoor

 

[jkpieterse]

Maar het antwoord is nee, je kunt niet de opmaak van een deel van de tekst aanpassen. Wel de gehele tekst.