Afterupdate meerdere textboxen (excel)

[allard1]

Vrienden,

Ik ben thans nog steeds bezig mij te verdiepen in de wereld die VBA heet en dan voornamelijk in samenwerking met excel. Op dit moment ben ik wat aan frobelen met userforms en ik heb een vraag omtrent de textboxes. Ik heb een textbox en als ik daar een getal invoer, wordt deze middels de afterupdate functie omgezet in Euro's. Hiervoor gebruik ik de volgende code:

Private Sub tbunitwaarde_afterupdate()
tbunitwaarde.Value = Format(Me.tbunitwaarde.Value, "currency")
End Sub

Nu wil ik dit voor meerdere doen, maar ik benieuwd of ik dit voor meerdere textboxen in een keer kan doen, of dat ik dit voor elke afzonderlijke box moet invullen.
Alvast dank voor de informatie

 

[snb]

of

Private Sub TextBox1_AfterUpdate()
    TextBox1.Text = FormatCurrency(TextBox1.Text)
End Sub

Dat zul je voor iedeer tekstvak moeten aangeven, tenzij je een classmodule voor de afhandeling van gebeurtenissen van userformelementen wil maken.

 

[allard1]

Dank voor je toevoeging omtrent de codeformulering. Klassenmodules is voor mij nog een onbekende weg, maar misschien is dit een mooie opstap om daar eens naar te kijken.