Jetzt macht mein Excel nicht mehr schlapp. Ich habe aus der - 1 im Code - 2 gemacht und jetzt klappt es super ;)
Der Code ist jetzt so:
Private Sub TextBox1_Change()
Dim test As String
While Me.TextBox1.CurLine > 2
test = Me.TextBox1.Text
test = Left(test, Len(test) - 2)
Me.TextBox1.Text = test
Wend
End Sub
Das einzige, was noch super wäre, ist wenn man nach der 3. Zeile nicht mehr mit dem Kursor in die 4. Zeile springen könnte, denn wenn der Inhalt der Textbox dann in die Excel Tabelle (in die bestimmte Zelle) kopiert wird, habe ich da dann immer 4 Zeilen (die letzte Zeile ist leer).
Aber wenn das nicht machbar ist, bin ich auch mit der jetzigen Lösen super zufrieden ;) ...Vielen, vielen Dank.
VG, Anna