Textboxen Inhalt ändern
07.08.2006 12:12:43
juerg660
ich habe in einem Dialogfeld 12 Textfelder mit "zugehörigen" Editboxen.
Wenn ich jetzt in eine Editbox etwas eingebe,soll die Textbox einen entsprechenden Inhalt annehmen.
Habe momentan folgenden Code:
Private Sub TextBox1_Change()
If TextBox1 = "1" Then d = "Dopppel-"
If TextBox1 = "2" Then d = "Tripple-"
If TextBox1 = "3" Then d = "12mm-"
If TextBox1 = "4" Then d = "16mm-"
If TextBox1 = "5" Then d = "24mm-"
End Sub
Private Sub autotext()
.Controls(TextBox & a).Value = d
End Sub
unter
www.tt-hainstadt.de/userform.jpg
findet ihr due Userform
Muß ich das für jede Textbox (1-12) eingeben oder kann ich das vereinfachen ?
Danke im voraus
Gruß Jürgen
Anzeige