Gruppe
Dialog
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.
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