Textlänge bei Eingabe in Textbox begrenzen
23.07.2008 19:14:19
TomTom
ich lade mir auf meinem Sheet Daten aus einer Zelle in eine Textbox:
For Each C in Range ("A5")
Textbox2.Value = Textbox2.Value & C.Value
Next
Nun möchte ich die Eingabe in die Texgbox begrenzen, und zwar nach 2 Kriterien:
1. es sollen max. 500 Zeichen in die Textbox geschrieben werden oder,
2. es sollen max. 10 Zeilen in die Textbox geschrieben werden
(Je nachdem , was eintritt)
Sollte der Fall mal eintreten, dass nicht der gasamt Inhalt aufgrund der 2 genannten Kriterien in die Textbox geschrieben werden kann, dann soll am Schluss der Information noch ein "..." angefügt werden.
1. Beispiel : "Wenn diese Information über 500 Zeichen hätte, dann soll am Schluss, an der Stelle wo abgeschnitten wurde nach das hier ran : ...."
2. Beispiel:
"Wenn diese Information
über 10 Zeilen
hätte, dann
soll am
Schluss,
an der
Stelle wo
abgeschnitten
wurde nach
das hier ran :
...."
Ich hoffe, ich konnte Euch mein Problem richtig erklären und jemand kann mir sagen, wie ich meinen seither genutzten Code erweitere,
Danke mal
Gruss
Tom