VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Eingabe in Tabellenblatt-TextBox begrenzen

Gruppe

Dialog

Bereich

TextBox

Thema

Eingabe in Tabellenblatt-TextBox begrenzen

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

    


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