Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Eingabe in Tabellenblatt-TextBox begrenzen

Gruppe

TextBox

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.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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