Hallo Forum.

Ich brauche schon wieder Hilfe.

Zu einer Userform, in welcher bereits ein Commandbutton (CommandButton1) definiert ist, möchte ich per VBA einen weiteren Button hinzufügen.

Mein Code

Sub ButtonAdd()
Dim MSFC1 As MSForms.CommandButton
Load UserForm1
Set MSFC1 = UserForm1.Controls.Add("Forms.CommandButton.1", "HilfeButton", True)
With MSFC1
.Left = 15
.Top = 40
.Width = 40
.Height = 20
.Caption = "Hilfe"
.Font.Size = 12
.Font.Name = "Arial"
End With
UserForm1.Show
End Sub

Im Code der Userform sind folgende Routinen vorhanden:

Private Sub HilfeButton_Click()
Private Sub CommandButton1_Click()
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Beim Klick auf den ursprünglichen Button wird die entsprechende Routine aufgerufen. Beim Klick auf den dynamisch hinzugefügten Button passiert nichts.

Weil noch weitere Änderungen an der Userform gemacht werden, möchte ich ungern die Routine "UserForm_Initialize" verwenden.

Was ist an meinem Code falsch?

Gruß Joschi