OpenOffice.info

Danke, klappt jetzt alles!

Dim myvalue As Currency

[quote=Postbyme post_id=274925 time=1524923294 user_id=59905]
Hallo Stephan,
vielen Dank. Da ich prinzipiell nicht mit variant arbeiten möchte würde mich noch interessieren mit welchem Format ich myvalue definieren müsste.
Danke
[/quote]

Spontan hätte ich Long als Datentyp vorgeschlagen, aber das Internet verweist mich auf Currency, also nimm Currency :

[code]Dim myvalue As Currency
[/code]

Gruß
Stephan

Hallo Stephan,
vielen Dank. Da ich prinzipiell nicht mit variant arbeiten möchte würde mich noch interessieren mit welchem Format ich myvalue definieren müsste.
Danke

myDoc = thisComponent
mySheet = myDoc.sheets(0)
mySheet2 = myDoc.sheets(1)
mycell = mysheet.getCellByPosition(0,0)
mycell2 = mysheet2.getCellByPosition(0,0)
myvalue=mycell.value
mycell2.value = myvalue
mycell2.NumberFormat = mycell.NumberFormat

myDoc = thisComponent
mySheet = myDoc.sheets(0)
mySheet2 = myDoc.sheets(1)
myrange = mysheet.getCellRangeByName("A1:A20")
myrange2 = mysheet2.getCellRangeByName("A1:A20")
myvalues=myrange.getDataArray()
myrange2.setDataArray(myvalues)
myrange2.NumberFormat = myrange.NumberFormat

[quote]Wie sollte ich die Beträge programmtechnisch übertragen?[/quote]

Ganz normal als Zahlenwert, also einzeln so:

[code]myDoc = thisComponent
mySheet = myDoc.sheets(0)
mySheet2 = myDoc.sheets(1)
mycell = mysheet.getCellByPosition(0,0)
mycell2 = mysheet2.getCellByPosition(0,0)
myvalue=mycell.value
mycell2.value = myvalue
mycell2.NumberFormat = mycell.NumberFormat[/code]

oder, mehrere als Zellbereich:

[code]myDoc = thisComponent
mySheet = myDoc.sheets(0)
mySheet2 = myDoc.sheets(1)
myrange = mysheet.getCellRangeByName("A1:A20")
myrange2 = mysheet2.getCellRangeByName("A1:A20")
myvalues=myrange.getDataArray()
myrange2.setDataArray(myvalues)
myrange2.NumberFormat = myrange.NumberFormat[/code]


Gruß
Stephan

..was ich noch vergessen habe: Die Beträge sollen in der Tabelle so gespeichert sein, dass diese dann auch "CSV-exportfreundlich" sind.

Hallo zusammen,
jeweils per Calc-Dateien gespeicherte Rechnungen möchte ich auswerten. Die Beträge sind darin im Format "Währung -1.234,00 €" dargestellt. Jetzt möchte ich diese Euro-Beträge per Makro in einer anderen Auswertungstabelle übertragen und zusammenfassen um mit diesen Beträgen einige Analysen und Kalkulationen durchzuführen. Wie sollte ich die Beträge programmtechnisch übertragen?
Danke