Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

UserForm-TextBox-Werte einer ListBox hinzufügen

Gruppe

TextBox

Problem

Nach der Eingabe von 2 Ziffern in eine UserForm-TextBox soll der Wert in eine ListBox eingetragen werden und der Cursor zur nächsten TextBox springen.

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

ClassModule: frmTextToList

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

Private Sub txtBox1_Change()
   Call Eintragenlistbox(1)
End Sub

Private Sub txtBox2_Change()
   Call Eintragenlistbox(2)
End Sub

Private Sub txtBox3_Change()
   Call Eintragenlistbox(3)
End Sub

Private Sub Eintragenlistbox(intNo As Integer)
   If Len(Controls("txtBox" & intNo)) <> 2 Then Exit Sub
   Controls("lstBox" & intNo).AddItem Controls("txtBox" & intNo).Text
   Select Case intNo
      Case 1: txtBox2.SetFocus
      Case 2: txtBox3.SetFocus
      Case 3: txtBox1.SetFocus
   End Select
   Controls("txtBox" & intNo).Text = ""
End Sub

StandardModule: basMain

Sub CallForm()
   frmTextToList.Show
End Sub