UserForm label variabel maken

Geacht forum

Weet iemand of een UserForm-label variabel gemaakt kan worden.
Het lukt mij tot nu toe alleen om de alternatieve tekst te zien bij een click, maar ik zou hem graag zien bij het openen van het formulier.

Private Sub Label1_Click()
Label1.Caption = Sheets("Blad1").Range("A1")

End Sub

Doe dat in de UserForm_Initialize sectie.

Helaas, dat helpt niet. Of doe ik iets verkeerd?



Private Sub UserForm1_Initialize()

Label1.Caption = Sheets("Blad1").Range("A1")
Label2.Caption = Sheets("Blad1").Range("A2")

End Sub

Ik heb ook niet UserForm1_Initialize gezegd.

Green, Bullen, et al. Excel 2007 VBA, Ch. 13

Dank je: opgelost

Graag gedaan.
En troost je, je bent niet de enige die daar in tuint.

Helaas, ik heb deze code nu ingebouwd in mijn 'grote' Excel-sheet.

Wanneer ik de "1" achter 'UserForm' verwijder krijg ik een Compileerfout: Syntaxisfout.
Weet iemand wat ik verkeerd doe?



Private Sub cbtOK_Click()

Ordernumber = TextBox1.Value
FTMS = TextBox2.Value

Unload Me

End Sub

Private Sub Label1_Click()

End Sub
_________________________________________________________________________
Private Sub Label2_Click()

End Sub
_________________________________________________________________________
Private Sub UserForm_Initialize()

Label1.Caption = Sheets("Dictionairy").Range("B49")
Label2.Caption = Sheets("Dictionairy").Range("B50")

End Sub
_________________________________________________________________________

Private Sub TextBox2_Change()

End Sub

Private Sub UserForm_Click()

End Sub

Zonder je document is daar niks van te zeggen.
Heb je wel een sheet die Dictionairy heet?
Want dat is in je code fout geschreven.

Gebruik bij het hier plaatsen van code ook codetags.
Zie de link in mijn handtekening.

Excuus voor het ontbreken van de codetags.

Ik heb de schrijffout weggewerkt. Maar daar ligt het niet aan.
In de bijlage de Excel.

Er staat rommel in je code.
Bekijk deze maar eens:
Bekijk bijlage Game 41.xlsm

Dankjewel. Weer opgelost.