OpenOffice.info

With ThisComponent.sheets().getbyname("Aufträge")
   x = .getCellRangeByName("G1:G65536").GetDataArray()
   .getCellrangeByName("H1:H65536").SetDataArray(x)
End With

nutze .getDataArray() / .setDataArray():
http://api.openoffice.org/docs/common/ref/com/sun/star/sheet/XCellRangeData.html

[code]With ThisComponent.sheets().getbyname("Aufträge")
x = .getCellRangeByName("G1:G65536").GetDataArray()
.getCellrangeByName("H1:H65536").SetDataArray(x)
End With[/code]


Gruß
Stephan