ich hoffe mir kann jemand zu meinem Problem hier weiterhelfen.
Ich erstelle mit folgendem Code, Textboxen in einem UserForm:
z_tebo=1
oberkante = 54
breite = 30
höhe = 20.25
Dim tebo As MSForms.TextBox
For i = 0 To 4
Set tebo = Me.Controls.Add("Forms.TextBox.1") ' TextBox zufügen
With tebo ' Parameter für Textbox ...
.Name = "TextBox" & z_tebo ' Name
.Left = pos_tebo(i) ' ... Position linke Seite
.Top = oberkante ' ... Oberkante
.Width = breite ' ... Breite
.Height = höhe ' ... Höhe
.FontSize = 12 ' ... Schriftgröße
End With
z_tebo = z_tebo + 1
Next
Jetzt möchte ich aber beim ausfüllen der Textboxen die Funktion "Sub TextBox1_Change()" verwenden, wie kann ich dies bei dynamisch erstellten Textboxen bewerkstelligen.
Danke
Christoph