controls.add Hilfe in VBA hat eine Macke
09.09.2005 18:10:29
helmut
ich möchte diesmal in eine Userform über einen Button eine Textbox oder ein Commandbutton einfügen. Dazu wollte ich über uferform1.controls.add gehen. Habe hierzu mich in der VBA Hilfe schlau gemacht und folgendes Beispiel gefunden:
Dim Mycmd As Control
Private Sub CommandButton1_Click()
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
Leider gibt dieses Beispiel immer einen Fehler mit dem Namen "ungültige Klassenzeichenfolge"! Was mache ich falsch, bzw. was ist in dem Beispiel aus der Hilfe falsch? (Mann sollte eigentlich annehmen, das die Beispiele aus der Hilfe auf Funktion geprüft sind!) Hat es vielleicht mit Add Inns oder Verweisen zu tun?
Wer kann mir hier weiterhelfen?
Gruß,
Helmut Palmen