VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Focus und Selection zwischen zwei TextBoxes wechseln

Gruppe

Dialog

Bereich

TextBox

Thema

Focus und Selection zwischen zwei TextBoxes wechseln

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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox