Schaltfläche auf UF zur Laufzeit erstellen
27.06.2013 16:54:13
David
Ich möchte eine leere UF beim Aufruf mit einer Liste aus einem Arbeitsblatt füllen. Dabei soll jeder Eintrag der Liste auf einer Schaltfläche erscheinen. Die Anzahl ist unbestimmt, deswegen soll das dynamisch sein.
Ich scheitere jetzt allerdings schon beim Erstellen der Buttons per VBA.
Folgendes Beispiel aus der Hilfe habe ich als Basis genommen:
Dim Mycmd As Control
Private Sub UserForm_Initialize()
Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, Visible)
Mycmd.Left = 18
Mycmd.Top = 150
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name
End Sub
Private Sub UserForm_AddControl(ByVal Control As _
MSForms.Control)
Label1.Caption = "Control was Added."
End Sub
Die einzige Änderung, die ich bisher vorgenommen habe ist, dass ich den Code als "Initial-Code" deklariere und nicht, wie im Beispiel, bei Klick auf eine Schaltfläche.
Was mache ich falsch?
Gruß
David