Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
560to564
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
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Text teilen

Text teilen
06.02.2005 13:06:19
Jürgen
Hallo
Ich habe folgendes Problem:
In eine Zelle soll Text kopiert werden, die Zelle kann maximal 52 Zeichen anzeigen.
Ich möchte jetzt den zu kopierenden Text so aufteilen, dass dieser bei dem letzten Leerzeichen vor dem 52ten Zeichen getrennt wird, in die Zelle eingefügt wird und der Rest des Textes eine Zelle darunter eingetragen wird.
Das ganze soll wie ein Zeilenumbruch sein aber eben auf zwei Zellen aufgeteilt.
Besten Dank im Vorraus
Jürgen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text teilen
Ramses
Hallo
bei VBA-Gut sollte das kein Problem sein
Dein Text steht in der Variablen "tmp"
Mit Len(Tmp) bestimmen ob mehr als 52 Zeichen
dann mit Left(tmp,52) die linken 52 abtrennen
und mit InstRev(tmp," ",-1) das Leerzeichen rausfinden das davor ist
Der Rest ist dann ein Kinderspiel
Cells(1,1,) = Left(tmp, InStrRev(tmp, " ", -1))
und tmp den Rest des Strings wieder zuweisen
Gruss Rainer
AW: Text teilen
06.02.2005 13:56:42
Jürgen
Hallo Rainer
Was heißt schon gut, ein bisschen mehr wie Rekorder geht schon.
Ich werd mich nachher mal damit Auseinandersetzen
Besten Dank für deine Antwort
Gruß Jürgen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige