Herbers Excel-Forum - das Archiv
Textbox nach Erreichen v. best. Wert zu nächst. TB
- Textbox nach Erreichen v. best. Wert zu nächst. TB von udo vom 04.11.2003 03:50:14
- NOCH OFFEN - nochwas .... - von udo am 04.11.2003 04:04:25
- Habe es schon hinbekommen mit ... - von udo am 04.11.2003 04:37:12
- Habe es schon hinbekommen mit ... - von udo am 04.11.2003 04:37:12
- NOCH OFFEN - nochwas .... - von udo am 04.11.2003 04:04:25
 |
Betrifft: Textbox nach Erreichen v. best. Wert zu nächst. TB
von: udo
Geschrieben am: 04.11.2003 03:50:14
Hallo ihr Lieben, und schönen guten Morgen.
Vielleicht ist ja noch Jemand wach , der mir noch nen heißen Tipp
zu folgendem Problem hätte.
-------------------------------------------------------------------
Ich habe in einem Tabellenblatt drei Textboxen verankert. Nun wird in diese
drei Textb. immer ein best. Zahlenwert eingegeben, der in der Anzahl der zahlen immer gleich ist, nur eben mit versch. Varianz.
So zB in TB 1 "1 123" , und in Tb 2 "333 0" und TB 3 "02"
also TB 1 hat insgesamt 5 Stellen ( mit Leerzeichen ), TB 2 auch 5, und TB 3
hat immer 2 Stellen.
Natürlich können verschiedene Zahlenwerte zusammengewürfelt werden usw.
Nun zu meinem Wunsch:
------------------------------------------------------------------------------
Ich möchte gerne das wenn ich eine der Textboxen anklicke, dass dann zuerst der
bisher darin enthaltene Wert gleich mal gelöscht wird, ohne dass ich dabei erts Backspace oder entfernen benutzen muss,
und dass wenn die 5. Stelle ( Zahl zB in TB 1 ) eingegeben wurde, dass dann der
Cursor automatisch zur nächsten Textbox springt, und da dann "blinkt", sodass ich nicht mit der Maus erst die nächste TB anklicken muss.
Der Wechsel sollte der Reihenfolge nach erfolgen, also von TB 1 zu TB 2 und dann zu TB 3
Perfekt wäre dann zum Abschluß nach der 2stelligen Eingabe in die letzte TB 3, dass dann automatisch die Cells(1,1).select wird, oder Makro 1 mit
Application.Run "Makro1" dann gestartet wird.
-----------------------------------------------------------------------------
Kann man diese Eigenschaften den Textboxen zuweisen ? , und könnte mir bitte Jemand einen Anstoß geben.
Ich bin mir dabei leider nicht ganz sicher wie ich hier vorgehen könnte.
wäre toll,
Lieben Dank schon mal im Voraus, ich meld mich im Lauf des Tages auf eure
Antworten, Vielleicht bis gleich oder später,
und Danke
udo
 |
Betrifft: NOCH OFFEN - nochwas ....
von: udo
Geschrieben am: 04.11.2003 04:04:25
hab bereits was herausgefunden, mit folgendem Makro funktioniert schon mal die Begrenzung der Textbox.
Private Sub TextBox1_Change()
Range("H5") = TextBox1
If Len(TextBox1.Text) = 5 Then
TextBox2.Activate
End If
End Sub
Nur weis ich noch nicht wie ich dann die zweite Textbox , TB 2 so activiere, dass der cursor innen blinkt,
Weis da bitte Jemand weiter ...
Gruß nochmals
udo
|
Betrifft: Habe es schon hinbekommen mit ...
von: udo
Geschrieben am: 04.11.2003 04:37:12
Hallo an Alle,
mit folgendem Makro ´funktioniert es:
Private Sub TextBox1_Change()
Range("H5") = TextBox1
If Len(TextBox1.Text) = 5 Then
With TextBox2
.Activate
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Gruß udo
| |