Option Explicit
Private Sub UserForm_Click()
Const LEFT_START As Single = 15
Const TOP_START As Single = 10
Const MARGIN As Single = 5
Static blnFlag As Boolean
If blnFlag Then
Call MsgBox("Die Steuerelemente wurden bereits erstellt.", vbExclamation)
Exit Sub
End If
blnFlag = True
Dim ctl As MSForms.Control
Dim i As Long
For i = 1 To 5
Set ctl = Controls.Add( _
"Forms.ComboBox.1", _
Name:="ComboMaterial" & i, _
Visible:=True)
ctl.Left = LEFT_START
ctl.Top = TOP_START + (i - 1) * (MARGIN + ctl.Height)
ctl.Width = 100
Next
End Sub