Verschillende knoppen dezelfde code laten uitvoeren (zoals een array cmd(index) )

[Jan Groven]

Hoi Allen,

Ik ben op zoek naar een mogelijke code die ervoor zorgt dat verschillende knoppen dezelfde code uitvoeren.

Het gaat over de plaatsing van de knoppen en het verwijderen ervan (.visible true/false) op meer dan 150 knoppen binnen eenzelfde form.

Het is inderdaad mogelijk om voor elke knop het event knop1_click() t/m knop163_click() een procedure te starten. Dit maakt echter een overzicht erg lastig en de code enorm zwaar. Ik las op het forum dat er mogelijkheden bestaan voor VBA voor Excel. Deze heb ik geprobeerd te implementeren in VBA-Access, maar zonder resultaat.

De code die ik voorlopig gevonden heb:

'De code in klassenmodule
Public WithEvents ButtonEvents As MSForms.CommandButton

Private Sub TextBoxEvents_MouseDown(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    MijnProcedure1
End Sub

Private Sub ButtonEvents_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    MijnProcedure1
End Sub

Buiten de code in de klassenmodule heb ik nog geen code (buiten dan MijnProcedure1) in mijn form. Hoe stuur ik dit verder?