Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Im Textfeld nur Eingabe von 2 Ziffern zulassen, dann zum nächsten

Gruppe

TextBox

Problem

Wie kann ich erreichen, dass der Cursor nach der Eingabe von 2 Ziffern in eine TextBox zur nächsten springt. Der Wert soll beim Verlassen der jeweiligen TextBox in der dem TextBox-Wert entsprechenden Spalte eingetragen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub TextBox1_Change()
   If Len(TextBox1.Text) <> 2 Then Exit Sub
   Call EintragenWert(Val(TextBox1.Text), 5)
   TextBox2.Activate
End Sub

Private Sub TextBox2_Change()
   If Len(TextBox2.Text) <> 2 Then Exit Sub
   Call EintragenWert(Val(TextBox2.Text), 6)
   TextBox3.Activate
End Sub

Private Sub TextBox3_Change()
   If Len(TextBox3.Text) <> 2 Then Exit Sub
   Call EintragenWert(Val(TextBox3.Text), 7)
   TextBox1.Activate
End Sub

Sub EintragenWert(iValue As Integer, iBox As Integer)
   ActiveCell.Select
   Cells(iBox, iValue) = iValue
End Sub