Button met naam uit cel

[Atwist]

Hallo allen.

Ik probeer buttons te maken in een userform, de buttons tekst (niet de VBA button naam) moeten de naam krijgen uit een cel zodat deze dynamisch gaat worden.
Dus als de tekst in de cel wijzigt dan wordt de tekst van gekoppelde button ook gewijzigd.
Heb al met het onderstaande geprobeerd maar dat werkt niet.

Private Sub UserForm_Initialize()
Sheets("Alle-MA").Select
cmb1.Caption = .Range(B2).Value

Hoe zou ik het wel werkend kunnen krijgen??

 

[OctaFish]

Die select is overbodig, en omdat je geen With .. End With gebruikt, gaat .Range ook fout. Dit zou moeten kunnen werken, denk ik:

     cmb1.Caption = Sheets("Alle-MA").Range(B2).Value

 

[SjonR]

Je bent nog iets vergeten Octa

Private Sub UserForm_Initialize()
cmb1.Caption = Sheets("Alle-MA").Range([COLOR="#FF0000"]"[/COLOR]B2[COLOR="#FF0000"]"[/COLOR]).Value
End Sub

 

[Atwist]

Ja

Hieraan had ik niet gedacht, het werkt perfect.

Dank je wel OctaFish en SjonR. :thumb::thumb: