Hallo,
das läßt sich ab über ein Klasse definieren.
Du legst dir eine Klasse (Objekt), z.B. "cMerkerEintag", an
In der legst du eine Variable mit "WithEvents" an.
Somit hast du in der Klasse die Möglichkeit auf Ereignisse zu reagieren.
Nun mußt du nur noch beim Erstellen des Buttons diesen der Variable in der Klasse zuweisen.
in der Klasse:
Public WithEvents btn As MSForms.CommandButton
Private Sub btn_Click()
MsgBox "hallo"
End Sub
beim erstellen der Buttons dann:
Set m.btn = Me.Controls.Add("Forms.CommandButton.1")
Und du mußt natürlich in einem Modul oder auch inder Userform eine Instanz der Klasse definieren.
|