Sub met parameter

[erpee]

Ik wil in een sub een parameter gebruiken zodat 'ie voor meerdere controls (bv een textbox of en listbox) te gebruiken is.

In het voorbeeld een simpele opzet maar ergens doe ik iets toch fout.

Wie kan me voorthelpen?

 

[AHulpje]

Probeer het eens zo:

Sub PlaatsTekst(Textboxnaam)
    Me.Controls(Textboxnaam) = "Lorem Ipsum"
End Sub

Private Sub CommandButton1_Click()
    PlaatsTekst "TextBox1"
End Sub

 

[snb]

Kijk eens hier

VBA voor smarties: controle op gebruikersinvoer in Userform

www.snb-vba.eu