Spalten verbinden - und Attribute beibehalten (mitnehmen)

[Qwau]

Spontan wüsste ich nicht, dass das geht.

Soll das in Calc bleiben, oder willst du es weiterverarbeiten?
Falls du dass mittels Serienbrief in Writer haben möchtest o.ä. könnte man dort die Formatierung anpassen.

[F3K Total]

Moin,
geht z.B. mi diesem Makro, der betroffene Zellbereich muss natürlich angepasst werden.

Code: Alles auswählen

Sub Colorize_Concated_Text
       oSheet = ThisComponent.Sheets(0)
       oRange = oSheet.getCellrangebyName("A2:C100")
       nEndcolumn = oRange.RangeAddress.Endcolumn
       nStartRow = oRange.RangeAddress.StartRow
       nEndRow = oRange.RangeAddress.EndRow
       oTargetRange = oSheet.getCellrangebyPosition(nEndcolumn+1,nStartRow,nEndcolumn+1,nEndRow)
       dim CharColor(2) as Long
       dim sText(2) as String
       for i = 0 to oRange.rows.count - 1
           for k = 0 to 2
               oCell = oRange.getCellbyposition(k,i)
               CharColor(k) = oCell.CharColor
               sText(k) = oCell.String
           next k
           oTargetCell =  oTargetRange.getCellbyPosition(0,i)
           oTargetCell.String = join(sText,"")
           oText = oTargetCell.Text
           oCursor = oText.createTextCursor
           oCursor.gotoStart(False)
           for j = 0 to 2
               nLength = len(sText(j))
               oCursor.goRight(nLength,true)
               oCursor.CharColor = CharColor(j)
               oCursor.goRight(0,false)
           next j
       next i
End Sub

Beispieldatei anbei.

@lin:Bitte starte jetzt keinen Salamitaktik-Thread, bei dem du, wie schon so oft, die Leute in einen Endlosthread verwickelst.
Schau dir das Makro, das ja, wie im Beispiel zu sehen, funktioniert, bitte genau an, bis du es verstanden hast, und übertrage es auf deine Datei.
Solltest du weitere Fragen haben, eröffne bitte einen neuen Thread.

R