[gelöst] Werte ohne Formel & ohne Zwischenablage kopieren
Verfasst: Di, 16.03.2021 09:37
Hallo Allerseits,
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
einfach wäre. Doch ich schaffe es nicht sowas in den folgenden Sub zu stellen:
Wisst Ihr bitte, wie es gehen würde?
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