Ein User soll 100 Daten in in ein" Formular" eingebem können. Hierfür öffnet sich beim klicken eines Icons in der Symbolleiste ein Eingabefenster. Auf diesem befinden sich 12 Textboxen und ein Scrollbar. Um die entsprechende Anzahl der Eingabefelder zu erzeugen benutze ich folgenden code:
'Routine zum weiterführen der Eingabefelder je nach Stellung des Scrollbalkens
Sub ScrollBarDaten_Change()
With Me
.NR1.Caption = .ScrollBarDaten.Value
.NR2.Caption = .ScrollBarDaten.Value + 1
.NR3.Caption = .ScrollBarDaten.Value + 2
.NR4.Caption = .ScrollBarDaten.Value + 3
.NR5.Caption = .ScrollBarDaten.Value + 4
.NR6.Caption = .ScrollBarDaten.Value + 5
.NR7.Caption = .ScrollBarDaten.Value + 6
.NR8.Caption = .ScrollBarDaten.Value + 7
.NR9.Caption = .ScrollBarDaten.Value + 8
.NR10.Caption = .ScrollBarDaten.Value + 9
.NR11.Caption = .ScrollBarDaten.Value + 10
.NR12.Caption = .ScrollBarDaten.Value + 11
End With
End Sub
2 Probleme stellen sich mir:
a)wie kann ich für die Felder 13 bis 100 einen direkten Bezug zu meinen Zellen herstellen? ( zum Beispiel der 50ste eingetragende Wert wird automatisch in die Zelle xy eines Worksheets eingetragen)
b) die zusätzlichen Zellen lassen sich nur mittles des Scrollbars anzeigen. Momentan muss man also erst scrollen, um die Fenster 13 -100 zu sehen...verlangsamt die Eingabe ziemlich und nervt ganz schön.
Ich hätte gerne, dass wenn der 12 Wert eingetragen wird und mit Enter oder Tabs bestätigt wird, der Cursor direkt weiter in Textbox 13 springt.
Danke im voraus für die Hilfe