Ich bin leider bei der Lösung der Frage, wie ich einen markierten Bereich ohne Formatierung von einem Tabellenblatt auf das andere per Makro kopieren kann, auf Eure Hilfe angewiesen.
Der nachfolgende Code funktioniert bestens:
Code: Alles auswählen
Sub KopiereBereich
oDocument = ThisComponent
oSheet1 = oDocument.Sheets(3)
oSheet2 = oDocument.Sheets(2)
Quellbereich = oDocument.getCurrentSelection()
Quelle = Quellbereich.getRangeAddress
Anfang = Quelle.Startrow
Ende = Quelle.Endrow
'Quellbereich festlegen
oQuelleRange=oSheet1.getCellRangeByPosition(0,Anfang,6,Ende)
oQuellRangeAddresse = oQuelleRange.getRangeAddress
oZiel = oSheet2.getCellByPosition(2,42)
oZielCellAdresse=oZiel.getCellAddress
oSheet2.copyRange(oZielCellAdresse,oQuellRangeAddresse)
End Sub
Code: Alles auswählen
Sub copyDataArray
oDocument = thisComponent
oSheet1 = thisComponent.Sheets(3)
oSheet2 = thisComponent.Sheets(2)
QuellArray = oSheet1.getCellRangeByPosition(0,2,6,2).getDataArray()
oSheet2.getCellRangeByPosition(2,42,8,42).setDataArray(Quellarray )
End Sub
Ich bin für jede Hilfe dankbar!
Viele Grüße
Luna