dynamische Userform
Frank
dieses Thema ist zwar schon oft behandelt worden, aber ich finde keine Lösung zu meinem Problem.
Ich habe folgneden Code geschrieben, der ja nach auswahl aus der ComboBox ein Label und ein Textfeld erzeugt.
Wenn ich aber die dynamischen Controls entfernen will bekomme ich die Fehlermeldung 444 Steuerelemente können nicht gelöscht werden. Diese Method kann in diesm Zusammenhang nicht verwendet werden.
Ich hoffe Ihr könnt mir helfen
Danke
Frank
Private Sub ComboBox1_Change()
Dim varText As Control
Dim varBox As Control
Set varBox = Me.Controls.Add("Forms.TextBox.1", "TextBox1")
Set varText = Me.Controls.Add("Forms.Label.1", "Label1")
If ComboBox1.Value = "1" Or ComboBox1.Value = "2" Or ComboBox1.Value = "3" Then
With varBox
.Height = 18
.Left = 88
.Top = 72
End With
With varText
.Height = 18
.Left = 12
.Top = 72
.Width = 72
.Caption = "Bezeichnungsfeld1"
End With
Else
If ComboBox1.Value "1" Or ComboBox1.Value "2" Or ComboBox1.Value "3" Then
Me.Controls.Remove Textbox1
Me.Controls.Remove Label1
varBox = Nothing
varText = Nothing
End If
End If
End Sub
Anzeige