Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

String kürzen und durch "..." ersetzen

String kürzen und durch "..." ersetzen
13.12.2013 03:31:53
Franz
Hallo Fachleute,
ich möchte einen String auf eine bestimmte Länge kürzen, das schaffe ich mit
textWhat = Left(Trim(textWhat), 20)
Jetzt aber noch ein weiterer Schritt: Sollte der String über 20 Zeichen haben, was nicht zwangsläufig der Fall ist (er kann auch <= 20 Zeichen sein), sollte ... hinter die 20 Zeichen geschrieben werden.
Das krieg ich nicht hin, drum bitte ich Euch um Hilfe.
Danke schonmal und Grüße
Franz

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String kürzen und durch "..." ersetzen
13.12.2013 03:44:10
Mustafa
Hallo Franz,
vielleicht so :

If Len(textWhat) > 20 Then
textWhat = Left(Trim(textWhat), 20) & "..."
End If

Rückmeldung obs Hilft wäre nett.
Gruß aus der Domstadt Köln.

AW: String kürzen und durch "..." ersetzen
13.12.2013 03:57:53
Franz
Hallo Mustafa,
danke für Deine Antwort. Aber genau das, was jetzt passiert, wollte ich vermeiden: dass die drei Punkte immer angefügt werden. Sie werden bei jedem String angefügt, auch wenn dieser von vornherein schon weniger als 20 Zeichen hat.
Die drei Punkte sollten aber nur angefügt, wenn der Ursprungsstring länger als 20 Zeichen ist und gekürzt wird. Hast Du dafür noch eine Idee?
Grüße
Franz

Anzeige
AW: String kürzen und durch "..." ersetzen
13.12.2013 04:14:17
Mustafa
Hallo Franz,
die Prüfung ist doch da :
If Len(textWhat)  > 20 then
bedeutet Klartext Wenn Länge textWhat länger als 20 Zeichen dann
erst dann wird der Text gekürzt auf 20 Zeichen.
Es sei denn dein textWhat hat Leerstellen und durch den Trim Befehl werden diese weggekürzt.
Dann eventuell so :

textWhat = Trim(textWhat)
If Len(textWhat) > 20 Then
textWhat = Left(textWhat, 20) & "..."
End If

Rückmeldung obs Hilft wäre Nett.
Gruß aus der Domstadt Köln.

Anzeige
AW: String kürzen und durch "..." ersetzen
13.12.2013 04:29:16
Franz
Hallo Mustafa,
ja, so ist es super. Zuerst die Leerstellen weg. Und dann die linken 20 Zeichen + " ..."
Vielen Dnak, Du hast mir sehr geholfen
Grüße
Franz

Danke für die Rückmeldung owT
13.12.2013 04:37:39
Mustafa

anstatt "..."
13.12.2013 09:29:18
Rudi
Hallo,
würde ich Chr(133) anhängen. Sieht aus wie ... ist aber nur ein Zeichen.
Gruß
Rudi

AW: anstatt "..."
13.12.2013 09:35:47
Franz
Hallo Rudi,
gute Idee, vielen Dank.
Gibt es irgendwo Übersichten für solche und andere Zeichen, das ist Ascii-Code, oder? Dumme Frage, sicherlich gibt es sowas. Kannst du mir was übersichtliches empfehlen?
Danke schonmal und Grüße
Franz

AW: anstatt "..."
13.12.2013 10:20:50
Rudi
Hallo,
Gibt es irgendwo Übersichten
die kannst du dir selbst basteln.
in A Zahlen von 33-255. In B:=Zeichen(A1) und runter kopieren.
Gruß
Rudi

Anzeige
AW: anstatt "..."
13.12.2013 10:47:13
Franz
Hallo Rudi,
das ist genial. Und wieder was dazugelernt.
Vielen Dank
Franz

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige