Text teilen

Bild

Betrifft: Text teilen von: Jürgen S.
Geschrieben am: 06.02.2005 13:06:19

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

Bild


Betrifft: AW: Text teilen von: Ramses
Geschrieben am: 06.02.2005 13:48:10

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


Bild


Betrifft: AW: Text teilen von: Jürgen S.
Geschrieben am: 06.02.2005 13:56:42

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Text teilen"