Textbox in userform invullen

[defqon]

Hallo,

Op blad1 heb ik een button staan, deze opent een userform. Op het userform staat een textbox die informatie moet halen uit cel e18 van blad1

Dit zou wel lukken als ik weer een butten op het userform maak, maar niet als ik op de button op blad1 druk. (als ik op de button op blad1 druk moet dus de textbox op het userform gelijk ingevult worden met het getal uit cel e18)

Kan iemand me helpen met de code?

Ter info:

Userform heet:

Private Sub kleur()

End Sub

Textbox heet:

Sub TextBox2_Change()

End Sub

En waar moet ik die code plaatsen in de "userform code" of in de "textbox code"

 

[defqon]

Voorbeeld

Ik heb hier nog een voorbeeldje gemaakt van wat ik bedoel. (zie bijlage)

Bvd voor de hulp!
Bekijk bijlage Help mij test1.xls

 

[Superzeeuw]

Beschouw dit bericht als niet geplaatst.

 

[HSV]

Hallo Superzeeuw,

Volgens mij behoort jou antwoord bij onderstaande link als ik me niet vergis.
http://www.helpmij.nl/forum/showthr...wnbox-tbv-e-mail-adress-in-excel?daysprune=14

Voor deze vraag van defqon,
Zet in de eigenschappen van de textbox achter ControlSource: A1

 

[defqon]

Bedankt hsv!

Maar als ik bijvoorbeeld 2 waarden wil laten zien van bijvoorbeeld cel a1 + b1
kan ik dit ook in de ControlSource zetten?

 

[Superzeeuw]

@ HSV,

Klopt helemaal, mijn fout.

Ik zal de zaken aanpassen.

 

[E v R]

Private Sub UserForm_Initialize()
Me.TextBox1.Text = Sheets("Blad1").Range("a1").Value & " " & Sheets("Blad1").Range("b1").Value
End Sub

 

[defqon]

Bedankt Eric!

de code doet het! had eerst nog userform_click() dit dus aangepast naar userform_initialize() en toen deed hij het