wie geht: unterschiedliche Formatierung innerhalb einer Zelle mit Verketten

[SteHoc]

Hallo @all & insbesondere an die Cracks

ich würde gerne die rechte Spalte in Abhängigkeit des Inhaltes von "Raum alt" vs. "Raum neu" FORMATIEREN lassen

unterschiedliche Formatierung.jpg (28.68 KiB) 6200 mal betrachtet

d.h. wenn(Raum alt = Raum neu; rechte Spalte bleibt leer)
wenn(unterschiedlich; dann möge doch bitte in die rechte Spalte eingetragen werden:
Erste Zeile (in dieser Zelle): "alte Raumnummer" in Fett UND in Rot UND Durchgestrichen
dann Zeilenumbruch (also Zeichen(10))
und dann in die zweite Zeile: "neue Raumnummer" auch in Fett UND Rot aber NICHT Durchgestrichen.

Hab auch schon probiert mit Hilfsspalten also
wenn c<>D, dann mach in Hilfsspalte1 in rot und fett und durchgestrichen den alten Raum rein
wenn c<>D, dann mach in Hilfsspalte2 in rot und fett und nicht durchgestrichen den neuen Raum rein
Ergebnis möge sein verketten("Alt: "&Hilfsspalte1; zeichen(10); "Neu: "&Hilfsspalte2)
Geht aber bei mir auch nicht ;-(

Den Text bekomm ich immer richtig rein, nur die Formatierung kann ich nicht individuell übertragen.

Händisch kann ich es eintragen, nur sind es mir zu viele Zeilen zum händisch korrigieren.

Freue mich auf kreative Lösungsvorschläge (evtl. ist es ja ganz einfach und ich sehe den Wald vor lauter Bäumen nicht).

Vielen Dank für Eure Zeit und Hirnschmalz
LG
Stefan

[Stephan]

Mei9ner Meinung nach geht das nicht per Formel, weil die Formatuierung nicht einheitlich für die Gesamtzelle ist. Ich würde deshalb ein Makro verwenden.

Wenn die gezeigte Spalten den Spalten A bis D entsprechen, dann z.B.:

Code: Alles auswählen

Sub Main
	blatt = ThisComponent.CurrentController.ActiveSheet
	For i = 1 To 20
		txt1 = blatt.getCellByPosition(1,i).String
		txt2 = blatt.getCellByPosition(2,i).String
		If txt1 <> txt2 Then
			zelle = blatt.getCellByPosition(3,i)
			cur = zelle.text.CreateTextCursor
			Cur.String = txt1 & CHR(10) & CHR(13) & txt2
			cur.GotoStart(False)
			cur.GoRight(LEN(txt1), True)
			With cur
				.CharColor = RGB(151,53,54)
				.CharWeight = 200
				.CharCrossedOut = True
			End With
			cur.GotoEnd(False)
			cur.GoLeft(LEN(txt2), True)
			With cur
				.CharColor = RGB(151,53,54)
				.CharWeight = 200
				.CharCrossedOut = False
			End With
		End If
	Next i
End Sub

Gruß
Stephan

[SteHoc]

@Stephan,

Super - vielen Dank, werd ich ausprobieren sobald der Arbeitsstreß vorbei ist ;-(

lg
Stefan

[Helmut_S]

Hallo anbei ein Vorschlag ohne Makro aber mit bedingter Formatierung. Mir scheint die Lösung in Spalte D als Doppelmops, da nur dasselbe steht wie bereits in Spalte B + C.
Gruß Helmut

[SteHoc]

Hallo Helmut_S

ja da hast Du recht, nur ist das erst die Vorstufe
Der "kombinierte" Inhalt (alt: also rot fett durchgestrichen \n neu: fett rot) wird nach kompletter Fertigstellung der Liste kopiert und mit "Einfügen Text mit Formatierung" in die Spalte Raum eingefügt und die "Hilfsspalten: Raum neu, ..." gelöscht, so daß am Ende nur noch die Original-Liste und dem "Hallo_Achtung_Raum_Ist_falsch_Neu_wäre" in der Spalte Raum steht.

VG
Stefan

[Hiker]

Hallo Stefan,

dann wäre meine Frage, ob man das nicht einfach nebeneinander in mehrere Zellen schreiben kann, von denen eine durchgestrichen fett und eine fett formatiert ist. Da der Text quasi gleich ist, kann man die Breite der Zellen passend der höchsten Raumnummer setzen und ist sehr schnell fertig....

Mfg, Jörn

PS: Nicht das ich etwas gegen eine elegante Lösung hätte, wenn jemandem was einfällt.

[SteHoc]

Hallo Hiker

ja da hast Du recht, das wäre einfach und schnell.
Nur - wie in meinem RE zum vorigen Beitrag schon geschrieben, ist das nur die Vorstufe.
In der fertigen "End-Liste" gibt es GENAU dieselben Spalten, wie in der Original-Liste, keine zusätzlichen, keine Hilfsspalten, nix Sonstiges.
Es wird das Original zurückgesendet, nur eben mit einem geänderten "auffälligen" Zellinhalt, in dem sowohl die alte (mittlerweile ungültige), als auch die neue (jetzt richtige) Raumnummer vermerkt ist.

VG
Stefan