Hallo Forum.

in eine "leere" Userform füge ich eine größere Anzahl von Zeilen mit jeweils 4 Spalten ein. Damit die einzelnen Felder einen Rahmen bekommen, habe ich mich für "Label.1" entschieden:

Dim NewLabel As MSForms.Label
Set NewLabel = Me.Controls.Add("Forms.Label.1")

Die Anzahl der Zeilen ist von externen Daten abhängig.

Nachdem ich alle Zeilen aufgebaut habe. möchte ich noch einen Command-Button nach der Liste einfügen, um die Anzeige "ordnungsgemäß" beenden zu können:

Dim NewCmd As MSForms.CommandButton

Set NewCmd = Me.Controls.Add("Forms.CommandButton.1")
With NewCmd
.Left = FormWidth - 50
.Top = TopPos
.Width = 30
.Height = 20
.Caption = "OK"
End With

Auch eine Click-Routine ist vorhanden, wird aber nicht aufgerufen.

Private Sub CommandButton1_Click()
Stop
Unload Me
Me.Hide
End Sub

Der gesamte Code ist Teil der Userform. Der Aufbau der Userform geschieht in der Routine UserForm_Initialize()

Wo liegt mein Fehler? Die Userform wird in der gewünschten Form angezeigt. Mein Problem ist lediglich der "Click".

Gruß Joschi