TextBox & ListBox
17.04.2007 08:32:00
Daniel
Hätte da ein kleineres Problem.
Habe eine Userform erstellt mit total 90 Textboxen.
Private Sub UserForm_Initialize()
Range("n18").Select
z = 1
z = z + 2
TextBox1.Value = ActiveCell.Offset(z, 0).Value
TextBox2.Value = ActiveCell.Offset(z, -9).Value
TextBox3.Value = ActiveCell.Offset(z, -8).Value
TextBox4.Value = ActiveCell.Offset(z, -6).Value
TextBox5.Value = ActiveCell.Offset(z, -5).Value
u.s.w bis TextBox90
und
Private Sub TextBox1_Change()
a1 = TextBox1.Value
[n20].Value = a1
End Sub
weiter bis TextBox90
Beim starten der Userform zeigt es mir zwar alle gewünschten Daten an. Ich kann im Userform die Daten überschreiben und diese werden im Excelsheet auch übernommen.
Das Problem besteht darin, dass beim öffen des Userform es sage und schreibe 20 Sekunden dauert bis alle Daten erscheinen. Das Prinzip stimmt zwar nur, bin aber überzeugt das es einfacher und vorallem viel schneller geht.
Danke für die Hilfe und Gruss
Dani