Variabele doorgeven aan een UserForm

[EdWel]

Beste forumgenoten,

Ik wil vanuit de code van een werkblad een variabele doorgeven aan een UserForm.
Het volgende heb ik geprobeerd, maar werkt niet:

Blad1(code)   

Public Nummer As Integer

Private Sub CommandButton1_Click()
   Nummer = 111
   UserForm1.Show
End Sub
_________________________________
UserForm1(code)

Private Sub UserForm_Initialize()
   TextBox1.Value = Nummer
End Sub

Er staat dan niets in TextBox1, terwijl ik Nummer als Public heb gedeclareerd in de declaratiesectie van Blad(1).
Iemand een oplossing?

Groet, Ed

 

[Hoornvan]

EdWel,

Zet b.v.b. in de cel C4 de variable en nu werkt het wel.

Blad1(code)   

Private Sub CommandButton1_Click()
   UserForm1.Show
End Sub
_________________________________
UserForm1(code)

Private Sub UserForm_Initialize()
  TextBox1.Value = [C4]
End Sub

 

[EdWel]

Hoi Wim,

Dat werkt inderdaad prima.
Iets soortgelijks had ik al bedacht met een soort doorgeef-procedure in een module, maar dit is makkelijker.
Toch vind ik het vreemd dat Blad1(code) niet Public wil praten met UserForm1(code).

Trouwens, die teksthaken zijn nieuw voor me. Scheelt een hoop Range-gedoe.

Thanks en als ik jou ergens mee kan helpen hoor ik het graag.

Ed

 

[rowano]

de code die je gebruikte was bijna goed, er zat maar een foutje in

Blad1(code)   

Public Nummer As Integer

Private Sub CommandButton1_Click()
   Nummer = 111
   UserForm1.Show
End Sub
_________________________________
UserForm1(code)

Private Sub UserForm_Initialize()
   TextBox1.Value = blad1.Nummer
End Sub

hopelijk werkt het nu.