Hallo
Ich habe folgenden Code:
Dim CtrButton As Control
Set CtrButton = UserForm1.Controls.Add("Forms.CommandButton.1")
With CtrButton 'Größe und Position
.Caption = "Info"
.Name = "InfoButton"
.Left = (UserForm1.Width) * 0.005
.Top = (UserForm1.Height) * 0.92
.Height = (UserForm1.Height) * 0.04
.Width = (UserForm1.Width) * 0.08
End With
Hierdurch erstellt sich ein CommandButton.
Was muss ich tun das bei Klick auf den Button etwas passiert.
der Sub:
Public Sub InfoButton_Click()
MsgBox ("Test")
End Sub
Ist ebenfalls im Modul und es passiert nichts?????
Was mache ich Falsch?
|