vba 2007 programmeren van dezelfde bewerkingen bij exit vele textboxen

[raoulvo]

Beste mensen,

Ik heb een excelsheet met vele tekstboxen. Zie plaatje


In totaal zijn het meer dan 100 textboxen. Ik wil dat bij de verlaten van de textbox elke keer de procedure DataVerversen uitgevoerd wordt. Met de procedure DataVerversen wordt de waarde in de gele labels achter de textboxen bijgewerkt. Bij 1 textbox kan dat met de volgend code:

[Private Sub TextBoxvr1k1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
DataVerversen
End Sub]

De textboxen nummeren door tot TextBoxvr12k4.
De r staat voor rij. De k staat voor kolom.

Moet ik voor elke tekstbox de bovenstaande code aanmaken of is er een slimmere manier waarbij veel code bespaart kan worden?

B.v.d. Raoul

 

[OctaFish]

Elke tekstbox zal zijn eigen code moeten krijgen. En dat is ook logisch natuurlijk. Wil je een bepaalde actie triggeren, dan moet het programma wel weten op wel object dat wordt gestart. Je kunt de code natuurlijk wel samenstellen op een slimme manier, door in Excel de gegevens neer te zetten, en de tekst samen te stellen door tekst + celinhoud te combineren. Vervolgens kopieer je het geheel naar je VBA en presto!

 

[snb]

Dit stond daarvoor al voor je klaar:

http://www.snb-vba.eu/VBA_Sheet_ActiveX_controle.html