Change event om meerdere labels te updaten

[DeBijl]

Hoi,

Ik heb ca. 20 labels onder elkaar staan waarvan de waarde moet veranderen zodra de waarde in de bijbehorende textbox (1 textbox per label) wijzigt. Nu wil ik het liefst niet 20x de code voor een change event schrijven, maar het liefst alle labels herzien zodra er een waarde in een van de textboxes verandert.
Hoe kan ik dit het beste aanpakken, is er een bv een methode om de labels te groeperen?

greetings!

 

[snb]

Private sub tekst1_change()
  vliegensvlug
End sub

Private sub tekst_change()
  vliegensvlug
End sub

Private Sub vliegensvlug()
  for j= 1 to 10
    Me("label" &j).caption=Me("tekst" & j).Text
  next
End sub

 

[DeBijl]

Maar dan hou ik nog wel 20 keer de change:

Private sub tekst_change()
vliegensvlug
End sub

Private sub tekst1_change()
vliegensvlug
End sub

Private sub tekst2_change()
vliegensvlug
End sub

Ik hoopte eigenlijk op een oplossing waarbij ik bv. alle labels in een frame kan plaatsen en dan bij elke wijziging binnen het frame (dus een willekeurig object binnen het frame) alle labels worden herzien. Bestaat zoiets?

thanks!

 

[Wigi]

Dat kan met klassemodules, maar dat is moeilijke VBA code.

 

[DeBijl]

Ok, dan ga ik het op de eerste methode doen... thanks all