dynamische ComboBox erzeugung
21.11.2003 09:03:57
Lars
ich erzeuge mir dynamisch Kombinationsfelder auf eine Userform, dies geschieht über einen SpinButton. Wenn die Anzahl darüber erhöht wird, dann soll es mehr Eingabefelder geben.
Der Code dafür:
Set MyCombo = Frame_Teilausbau.Controls.Add("Forms.ComboBox.1", , Visible)
MyCombo.name = "Combo_teil_" & Anzahl + 1
MyCombo.left = 120
MyCombo.Width = 100
MyCombo.top = 50 + Anzahl * 20
MyCombo.RowSource = "F110:F124"
Set MyTextBox = Frame_Teilausbau.Controls.Add("Forms.TextBox.1", , Visible)
MyTextBox.name = "tf_wert_" & Anzahl + 1
MyTextBox.left = 240
MyTextBox.top = 50 + Anzahl * 20
MyTextBox.Width = 100
Nun zu meinem Problem. Wie man sieht wird auch ein Textfeld erzeugt, welches mit Standardwerten gefüllt werden soll, wenn man in den erzeugten Kombinationsfeldern etwas ändert. Wie bekomme ich das hin, also gibt es einen Funktionsaufruf, wie bei festen Kombinationsfeldern ComboBox_Click().
Die Felder werden (Combo_teil_1, Combo_teil_2 usw.) auch dynamisch erzeugt.
Ich würde mich freuen, wenn mir jemand helfen könnte.
Danke im Voraus
Anzeige