Ersetzen eines Zeichens durch Absatzwechsel

[Toxitom]

Hey,

Ein längerer Text in einer Zelle solle an bestimmten Stellen einen Absatzwechsel (Absatzendezeichen) erhalten.

Bei der manuellen Eingabe geht das problemlos durch <Stgr> + <Enter>.

Nun soll ein bereits vorhandener Text mit Suchen+Ersetzen diesen Absatzwechsel erhalten - an einem definierten Zeichen, z.B. '%'.

Aus

eins%zwei soll werden

eins
zwei

In Writer geht das problemlos mit \n im Ersetzenfeld, bei Calc allerdings nicht.

Hat jemand eine Idee? leider gehen bei mir auch so Sachen wie \x000D nicht,

Bin für jeden Tipp dankbar

VG
Tom

[Stephan]

Zu dem Suchdialog fällt mir auch nichts ein. Vielleicht ist ein Makro akzeptabel?

Code: Alles auswählen

Sub Main
	blatt = ThisComponent.Sheets(0)
	sd = blatt.createSearchDescriptor()
	sd.setSearchString("%")
	sd.SearchWords = False
	akt = blatt.findFirst(sd)
	
	Do While Not IsNull(akt)
		x1 = Split(akt.String,"%")
		akt.String = JOIN(x1, CHR(10))
		akt = blatt.findNext(akt, sd)
	Loop
End Sub

Gruß
Stephan

[Toxitom]

Hallo Stephan,

danke für die Antwort. Und natürlich, mit Makro geht´s immer;))

Hätte ja nur sein können, dass jemand ne Idee für die Suchen&Ersetzen Maske hat.

VG
Tom