Umbruch nach bestimmten Zeichen

[Stefan87]

Hallo


Ich bin auf der Suche nach einem VBA Code das mir einen Zeilenumbruch nach einem Bestimmten Zeichen ausführt. Der Text steht in Zelle ab E5. Der Code soll per Button ausgeführt werden.

Im Moment steht der Text so drin: =5+RCC1-W0042

Nach der Ausführung soll er so aussehen:
=5+RCC1
-W0042

Wer hat da einen Vorschlag?

Gruss Stefan

[theTroother]

Hallo Stefan,

wenn das wirklich TEXT ist, kann man das mit Formeln lösen:
zB so

in A1 steht dein Text
in B1 folgende Formel: =LINKS(A1;FINDEN("-";A1)-1)
in C1: folgende Formel: =RECHTS(A1;LÄNGE(A1)-FINDEN("-";A1))


wenn VBA sein soll, die Stichworte sind Spit, Delimiter = "-"

lg theTroother

[RPP63]

Das Edit mal gleich am Anfang:
Meinst Du wirklich Zellenumbruch (was soll das eigentlich sein)?
Meine Antwort bezieht sich auf Zeilenumbruch innerhalb einer Zelle.

Moin Stefan!
Für ein einziges Beispiel fange ich nicht an, mir Gedanken zu machen!
Begründung: Ich kenne diese Threads!
Nach der 30. Ergänzung immer neuer Varianten verliert man die Lust.
Dennoch meine Lösung:

Code:

Replace("5+RCC1-W0042","-","-" & Chr(10))

Gruß Ralf

[theTroother]

Hoppala Stefan,

habe erst jetzt gesehen das du einen "Umbruch" möchtest.
Dann folgende Formel in B1: =LINKS(A1;FINDEN("-";A1)-1) &ZEICHEN(10)& RECHTS(A1;LÄNGE(A1)-FINDEN("-";A1))

das zusätzliche Zauberwort für VBA lautet Chr(10)

lg theTroother

[volti]

Hallo,

per VBA könnte es so aussehen:

Code:

ActiveCell.FormulaLocal = Replace(ActiveCell.FormulaLocal, "-", "-" & vbLf)
ActiveCell.value = Replace(ActiveCell.value, "-", "-" & vbLf)

PS. Wenn ein =-Zeichen vorne steht und nicht als Text formatiert ist, ist es eine Formel. Das Ergebnis ist dann natürlich nicht umgebrochen.

Gruß
Karl-Heinz

[Stefan87]

@theTroother

Wenn ich deine Formel so anpasse auf meine Zeile, dann erhalte ich es aber nur so:

=5+RCC1W0042

Das Minus zeichen vor dem W ist weg und weiterhin auf einer Linie.

[RPP63]

*gelöscht wegen Editierung von Stefan*

[theTroother]

Hallo Stefan

wie auch volti unter #5 schreibt...
-> es scheint eine Formel zu sein und KEIN TEXT... (?!?)

Formel wenn Bindestrich "-" mitenthalten sein soll:

=LINKS(A1;FINDEN("-";A1)-1) & ZEICHEN(10) & RECHTS(A1;LÄNGE(A1)-FINDEN("-";A1)+1)

Wenn TEXT sollte es funktionieren (ungeprüft kein Excel gerade zur Verüfung)

edit
hast du den Zeilenumbruch aktiviert (Kontextmenü Zellenformatieren > Ausrichtung > Textsteuerung Kästchen Textumbruch (aktivieren)


lg theTroother

[Stefan87]

@ theTroother 

Zeilenumbruch ist aktiviert. Er nimmt irgendwie das Minus weg und lässt eine Abstand im Umbruch.

=5+RCC1

W0042

[theTroother]

Hallo Stefan,

gut wenn es TEXT ist.

siehe auf #8, da habe ich noch etwas  nachträglich editiert, auch die Formel angepasst.

Damit soll es korrekt klappen

lg theTroother