Das Archiv des Excel-Forums

Textlänge bei Eingabe in Textbox begrenzen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

Betrifft: Textlänge bei Eingabe in Textbox begrenzen
von: TomTom

Geschrieben am: 23.07.2008 19:14:19

Hi,
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

Bild

Betrifft: AW: Textlänge bei Eingabe in Textbox begrenzen
von: Worti
Geschrieben am: 23.07.2008 20:26:19
Hi Tom,
liest du nur die eine Zelle A5 aus (1)?
Oder einen Zellbereich, wo du nach jeder Zelle einen Zeilenumbruch in der Textbox einfügen willst (2)?
Oder haben eventuell die zusammenzufügenden Zellen schon Zeilenumbrüche(3) ?
für den Fall (2) versuch mal diesen Code:


Sub tom()
Dim rngC As Range
Dim intAnzahlzeilen
intAnzahlzeilen = 0
For Each rngC In Range("A1:A15")
If Len(UserForm1.TextBox1.Value) + Len(rngC) <= 500 And _
intAnzahlzeilen < 10 Then
If rngC <> "" Then
UserForm1.TextBox1.Value = UserForm1.TextBox1.Value + rngC.Value & Chr(10)
intAnzahlzeilen = intAnzahlzeilen + 1
End If
Else
UserForm1.TextBox1.Value = UserForm1.TextBox1.Value & "..."
Exit For
End If
Next
UserForm1.Show
End Sub



Gruß Worti

Bild

Betrifft: AW: Textlänge bei Eingabe in Textbox begrenzen
von: TomTom

Geschrieben am: 23.07.2008 23:36:03
Hi worti,
ich habe eigentlich beides. Es kommt vor, dass es in der Zelle ein einfacher String gibt, der über 500 Zeichen haben kann (eine Zeile). Dann soll nach dem 500 Zeichenabgeschnitten werden.
Es kann aber auch vorkommen, dass die Information selbst schon Zeilenumbrüche hat und dann soll nach der 10 Zeile schluss sein (egal, ais wiedvie Zeiechen eien Zeile besteht)
Gruss
Tom

Bild

Betrifft: AW: Textlänge bei Eingabe in Textbox begrenzen
von: Matthias L
Geschrieben am: 23.07.2008 20:27:20
Hallo Tom
Gib der MaxLength-Eigenschaft der Textbox einen Wert z.B 503
Vergleiche nun Len(Textbox1.Value) mit MaxLength.
Nun kannst Du mit einer If Abfrage die Länge die Box neu befüllen, unter dem Motto
If Len(Textbox1.Value)=500 then Textbox1.Value= Left(Textbox1.Value,500) &"..."
- nicht getestet -
Gruß Matthias

Bild

Betrifft: AW: Textlänge bei Eingabe in Textbox begrenzen
von: Daniel

Geschrieben am: 24.07.2008 02:15:31
Hi
du könntest mit diesem Code nach vollständiger Texteingabe die Textbox beschneiden:


With TextBox1
Do Until .LineCount <= 10 And Len(.Text) <= 500
.Text = Left$(.Text, Len(.Text) - 1)
Loop
.Text = Left$(.Text, Len(.Text) - 3) & "..."
End With


Gruß, Daniel

 Bild

Excel-Beispiele zum Thema "Textlänge bei Eingabe in Textbox begrenzen"

Zelleingaben speichern download Bei falscher Eingabe alten Wert wiederherstellen download
Eingabeerleichterung bei Zeitformaten download Nichtnumerische Eingaben verhindern download
Eingabe in Großbuchstaben wandeln download Eingaben aufaddieren download
Automatisches Komplettieren einer Zelleingabe download Nur numerische Eingaben zulassen download
Vereinfachte Zeiteingabe download Datumseingabe in Textfeld erzwingen download
Eingabe von positiven Zahlen erzwingen download Vervollständigen von Zelleingaben download
Einzelnes Zeichen aus einer InputBox-Eingabe auslesen download Nichtnumerische Eingaben in TextBox verhindern download
Eingabeerleichterung bei Datumseingaben download Einmalige Eingabe zulassen download
Zellinhalt und Kommentar nach Eingabe festlegen download Alle Datensätze >= Eingabewert filtern download
Nach Eingabe Werte aus Tabellen Übernehmen download Die Ereignisse Zellauswahl, Eingabe und Doppelklick download
Farbanpassung nach Eingabewert download Datensatz nach Eingabe eines Kurzbegriffes download
Eingabe der Artikelnummer und Rabattberechnung download Zellinnenfarbe bei Eingabe eines Sonntags verändern download
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen download Dialog-Datumseingabe vereinfachen und kontrollieren download
Zelleingaben automatisch auf volle 1,2-Teile runden download Eingabekontrolle bei UserForm download
Verknüpfung zu einer Mappe durch Eingabe der Zelladresse download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Vereinfachte Datumseingabe über UserForm download Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download
Hintergrundfarbe nach Eingabewert download CheckBoxes in einer Tabelle über Zelleingaben steuern download
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download Von Eingabe- zu Eingabefeld springen download
Bei Eingabe von "j" "Ja" und von "n" "Nein" schreiben download Tagesliste eines Monats nach Eingaben aktualisieren und formatieren download
In einer UserForm-TextBox die Eingabe von Sonderzeichen verhindern download Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen download
Eingabe auf bereits vorhanden prüfen und, wenn nein, einfügen download Grafik in Abhängigkeit einer Zelleingabe einfügen download
Zelleingaben in nicht sichtbarem Blatt protokollieren download Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern download
Assistent zum Dialog aufrufen und Eingaben auswerten download Bei Eingabe andere Werte löschen download
Formeleingabe über ShortCut download Bei Eingabe von "x" Zelle unterhalb in fett download
Eingaben in B:D automatisch mit 6 multiplizieren download TextBox-Eingaben im Format TTMMJJ in gültiges Datum umwandeln download
Text aus Textbox in Variable download Namen von TextBoxes hochzählen download
Text aus Textbox in Zellen aufteilen download Text aus UserForm-Textbox in Variable einlesen download
Nur Buchstaben in eine UserForm-TextBox download TextBoxes- und Label-Werte in Abhängigkeit verändern download
Nur AJM in TextBox akzeptieren und Anzahl zählen download Artikel aus Auswahltextbox in Sammeltextbox verschieben download
Bei Doppelklick Textbox mit Text einfügen download Umwandlung eines TextBox-Wertes in eine Zahl download
Wert in UserForm-TextBox eintragen und selektieren download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Werte aus UserForm-TextBox in bestimmten Formate übertragen download
UserForm-TextBoxes ein- und ausblenden download Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download
Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen download
Bestimmte Zeichen in einer UserForm-TextBox markieren download Textvariable in eine UserForm-TextBox eintragen download
UserForm-TextBox-Werte über ScrollBar einlesen download Wert aus Zelle in Tabellenblatt-Textbox eintragen download
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen download Werte zweiter UserForm-TextBoxes multiplizieren download
Text aus UserForm-TextBox drucken download Tabulator in UserForm-TextBox simulieren download
UserForm-TextBox-Werte einer ListBox hinzufügen download UserForm-TextBox-Werte auf Numeric prüfen und in Tabelle eintragen download
Text aus UserForm-TextBox in Tabelle suchen download Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren download Element in ListBox in Abhängigkeit einer TextBoxeingabe auswählen download
Arbeitsmappe schliessen, wenn kein Eintrag in TextBox erfolgt download Plausibilistätsprüfung bei Datum&Zeit-Eingaben in UserForm-TextBox download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Tabellenblatt-TextBox-Wete in Abhängigkeit zu Drehfeld download
Eingabebegrenzungen für TextBoxes download Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes download
Spalteninhalt in UserForm-TextBox mit ScrollBalken einlesen download Focus und Selection zwischen zwei TextBoxes wechseln download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Datumreihe aus TextBox-Einträgen generieren download
Eingetragenen Wert in TextBox speichern download Eigene Klasse für UserForm-TextBoxes bilden download
Markierung einer Datumsreihe gem. UserForm-TextBoxes download Datum aus TextBox an erste frei Stelle eintragen download
Scrollbereich begrenzen download Eingabemöglichkeit auf 255 Zeichen je Zelle begrenzen download
Eingabe in Tabellenblatt-TextBox begrenzen download Textlänge in einer Spalte auf 40 Zeichen begrenzen download