caption optionbutton userform

[Samet1805]

Beste Allen

Is er een mogelijkheid om de caption van een optionbutton aan te passen volgens een tekst in een cel?

in bijlage een bestandje.

Als ik in een cel in kolom A dubbelklik, verschijnt er een userform met optionbuttons.
Bedoeling is dat ik tekst invul in bv kolom C, en deze wordt overgenomen in de caption van de optionbuttons.

alvast bedankt

 

[gast0660]

Private Sub UserForm_Initialize()

Opvolger1.Caption = [C1].Value
Opvolger2.Caption = [C2].Value
.....

End Sub

 

[Samet1805]

Beste

Bedankt! op zich werkt het, maar neemt de waarde pas over na een paar keer klikken?

 

[gast0660]

neemt de waarde pas over na een paar keer klikken

Wat bedoel je?
Hierbij een voorbeeeldje.

 

[Samet1805]

beste gast0660

Als ik een waarde in cel 1 bijvoorbeeld aanpas, en dan dubbelklik om de userform te krijgen, staat er nog altijd de oude waarde in.
Pas na een hele tijd wordt de "nieuwe" waarde overgenomen.

Hoe kan dit?

 

[gast0660]

Dat komt door het dubbelklik event, met een cel in edit mode werkt VBA niet Kies eerst een andere cel en ga terug naar de gewenste cel.
Het zou beter zijn om een meer gelijkend vbtje te posten waaruit blijkt wat je wilt bereiken. (zonder gevoelige info natuurlijk maar met wat Jan en Katrien gegevens)

 

[edmoor]

Zet die code ervoor in de Userform_Activate in plaats van in de Userform_Initialize

 

[Samet1805]

Beste

In bijlage een lichtjes aangepaste. ik moet gewoon gebruikres (opvolgers) kunnen toevoegen of wijzigen. deze zouden dan meteen moeten worden overgenomen door de caption.

 

[edmoor]

Zie #7.

 

[Samet1805]

Bedankt allemaal. Het is opgelost. Inderdaad door activate ipv initialize

 

[snb]

Als je het userform eerst een beetje opschoont: