ich habe/fand nachstehenden Code, der in einem Standardmodul gestartet eine UF erstellt
und mit zwei Controls bestückt.
Wie aber zeige/starte ich nun diese UF?
Bei
Userform1.Show
im Code motzt der Debugger da er beim Kompilieren Userform1 nicht kennt.
Mit
Userforms(.name).show
(im Code auskommentiert) kommt der Fehler 13, Typen unverträglich.
Was tun, wie muß ich den Aufruf schreiben?
Danke ^ Gruß
Reinhard
Sub UserformErstellen()
' XL2000, Verweis auf Microsoft Visual basic for Applications Extensibility 5.3
Dim oFRM As VBComponent
With ThisWorkbook.VBProject
'Eventuell löschen wenn vorhanden
For Each oFRM In .VBComponents
If LCase(oFRM.Name) = "userform1" Then
.VBComponents.Remove oFRM
DoEvents
Exit For
End If
Next
With .VBComponents.Add(vbext_ct_MSForm)
.Name = "UserForm1"
DoEvents
'Button erstellen
With .Designer.Controls.Add("Forms.CommandButton.1")
.Top = 5: .Left = 5: .Width = 100: .Height = 20
.Caption = "Ich bin ein Button"
End With
'TextBox erstellen
With .Designer.Controls.Add("Forms.TextBox.1")
.Top = 30: .Left = 5: .Width = 100: .Height = 20
.Value = "Ich bin eine TextBox"
End With
'UserForms(.Name).Show
End With
End With
End Sub