Zellenformatierung mitkopieren

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Zellenformatierung mitkopieren

von Charly » So, 12.09.2004 14:40

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

Zellenformatierung mitkopieren

von Canalratte 2 » Fr, 10.09.2004 21:02

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

Nach oben