Zellenformatierung mitkopieren

[Canalratte 2]

Hallo zusammen.

Mir ist es mittlerweile gelungen, mittels:

triggerCell= extsheet.getCellByPosition(x,y)
mycell=mysheet.getcellbyposition(x,y)
mycell.string=triggercell.string

den Inhalt einer Zelle in eine andere zu übertragen.
Nur wie kann ich die Formatierung der Zelle mitkopieren?
Hierbei sind so sachen wichtig wie:
Schriftart /Schriftgröße/Fett/Kursiv/Farbe/Hintergrundfarbe...etc

bisher wird rein der Inhalt kopiert, und so dargestellt, wie in der neuen Tabelle die attribute gesetzt sind.

vielen Dank im voraus für die Hilfe

Jürgen

[Charly]

Hallo Jürgen!

Ich verwende immer folgende Befehle:

Code: Alles auswählen

Sub kopiere()

dim CellRangeAddress
dim CellAddress

Document = ThisComponent
oBlatt = Document.sheets.getbyName("Test")

Quelle = oBlatt.getCellRangebyName("A1:B10") 
Ziel = oBlatt.getCellbyPosition(2,0)  'erste Zelle des Zielbereichs

CellRangeAddress = Quelle.getRangeAddress()
CellAddress = Ziel.getCellAddress()


oBlatt.copyrange(CellAddress, CellRangeAddress)

end Sub

Gruß
Charly