Programming UserForm Add Controls
15.11.2014 18:03:37
Pete
habe folgendes Problem, ich habe manuell eine UserForm mit dem Namen "Suchmaske" angelegt. Diese möchte ich jetzt variabel mit einem Makro editieren. Dazu habe ich ein einfaches statisches Beispiel generiert. Allerdings funktioniert es nicht. Laufzeitfehler: "Invalid forward reference, or reference to uncompiled type."
Hier der Code:
Sub edit_userform_suchmaske()
With ActiveWorkbook.VBProject.VBComponents("Suchmaske")
With .Designer.Controls.Add("forms.Textbox.1").Name = "textbox_01"
.Caption = "textbox_01_caption"
.Top = 120
.Left = 120
End With
.Properties("Height") = 400
.Properties("Width") = 200
End With
End Sub
Gruß
Pete
Anzeige