ich muss noch mal nerven mit meinem Problem, ist immer noch nicht behoben:
ich Habe eine Textbox und lade dort Daten rein. Dannach wird die Höhe der Textbox automatisch an die Menge der Daten abgepasst. Also , je nachdem wie viel Daten in die Textbox kommen, wird .Height Grösser oder Kleiner.
Die Maximale Grösse bzw max Anzahl an Zeilen soll aber 12 sein. Nun habe ich versucht, Daten, die über die 12 Zeilen hinausgehen, abzuschneiden:
If .LineCount GRÖSSER 12 Then .Value = (.LineCount = 12) & "... (mehr Informationen finden Sie online !)"
Aber irgend wie funktioniert das nicht so. Ich habe es auch schon mal mit
If Len(TextBox11.Value) GRÖSSER 800 Then TextBox11.Value = Left(TextBox11.Value, 800)
versucht, aber das kann unter umständen, wenn es in den Daten viele Zeilenunbrüche hat, und die einzelnen Zeilen in der Textbox nicht voll ausgenutzt werden, dazu führen, dass die Informatíon wieder nicht in die textbox passt.
Gibt es denn keine Möglichkeint, der Textbox mitzuteilen, so viel daten zu befüllen, dass max. 12 Zeilen belegt werden ?
Danke mal
Joachim