habe gerade erfahren, wie man Bereiche kopiert. Ich möchte aber nur Werte ohne Formel kopieren, und zwar ohne die Zwischenablage zu verwenden, denn sie ist nicht 100% sicher.
Habe gefunden, dass es mit sowas wie
Code: Alles auswählen
oSheet0.getCellRangeByName("B14").Value = oSheet6.getCellRangeByName("C3:C4").Value
Code: Alles auswählen
Sub Main
Dim oUeb as Object 'Die übertragbaren Daten
Dim oSheet0 as Object, oSheet6 as Object 'Tabellenblatt
Dim oRange as Object 'Zellbereich
Dim OBuchhaltung as Object 'Dokument
OBuchhaltung=ThisComponent
oSheet6=OBuchhaltung.getSheets().getByIndex(6)
oRange = oSheet6.getCellRangeByName("C3:C4")
OBuchhaltung.CurrentController.select(oRange)
oUeb = OBuchhaltung.CurrentController.getTransferable()
oSheet0=OBuchhaltung.getSheets().getByIndex(0)
oRange = oSheet0.getCellRangeByName("B14")
OBuchhaltung.CurrentController.select(oRange)
OBuchhaltung.CurrentController.insertTransferable(oUeb)
End Sub