Userform-Name variabel...
01.09.2013 19:51:49
robert
Hi,
dieser Code funktioniert
Private Sub clButton_Click()
UserForm1.Hide
Dim myform
myform = clButton.Caption
'UserForms.Add (Application.VBE.ActiveVBProject.VBComponents(myform).Name) '.Show
Dim t As Control
Set t = Suppen.Controls.Add("Forms.ListBox.1")
t.Left = 10
t.Top = 20
t.Width = 250
t.Height = 200
t.ColumnCount = 2
t.ColumnWidths = "200;30"
t.RowSource = Range("Suppen").Address(External:=True)
t.FontSize = 12
Suppen.Show
End Sub
Private Sub clButton_Click()
UserForm1.Hide
Dim myform
myform = clButton.Caption
'UserForms.Add (Application.VBE.ActiveVBProject.VBComponents(myform).Name) '.Show
Dim t As Control
Set t = myform.Controls.Add("Forms.ListBox.1")
t.Left = 10
t.Top = 20
t.Width = 250
t.Height = 200
t.ColumnCount = 2
t.ColumnWidths = "200;30"
t.RowSource = Range("Suppen").Address(External:=True)
t.FontSize = 12
myform.Show
End Sub
robert