Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Focus und Selection zwischen zwei TextBoxes wechseln

Gruppe

TextBox

Problem

Der Focus soll nach Eingaben zwischen zwei TextBoxes wechseln. Die Einträge sollen selektiert erscheinen.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

StandardModule: basMain

Sub CallForm()
   frmFocus.Show
End Sub

ClassModule: frmFocus

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub txtA_AfterUpdate()
   With txtB
      .SetFocus
      .SelStart = 0
      .SelLength = Len(.Text)
   End With
End Sub

Private Sub txtB_AfterUpdate()
   txtA.SetFocus
   With txtA
      .SetFocus
      .SelStart = 0
      .SelLength = Len(.Text)
   End With
End Sub