OpenOffice.info

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

Moin,
geht z.B. mi diesem Makro, der betroffene Zellbereich muss natürlich angepasst werden.
[code]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[/code]

Beispieldatei anbei.

[color=#FF0000][b]@lin:[/b][/color]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

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.