Gruppe
Dialog
Problem
Nach der Eingabe von 3 Zeichen in die TextBox sollen diese in die erste freie Zelle in Spalte A geschrieben werden. Danach ist die TextBox zu leeren, wobei sie wieder den Focus bekommt.
ClassModule: Tabelle1
Private Sub TextBox1_Change()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
If TextBox1.TextLength = 3 Then
Cells(iRow, 1).Value = TextBox1.Text
TextBox1.Text = ""
TextBox1.Activate
End If
End Sub