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