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
[gelöst]Formatierte Währungsfelder umsetzen
Moderator: Moderatoren
[gelöst]Formatierte Währungsfelder umsetzen
Zuletzt geändert von Postbyme am So, 29.04.2018 12:31, insgesamt 1-mal geändert.
-------------------------------------------------------
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Re: Formatierte Währungsfelder umsetzen
..was ich noch vergessen habe: Die Beträge sollen in der Tabelle so gespeichert sein, dass diese dann auch "CSV-exportfreundlich" sind.
-------------------------------------------------------
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Re: Formatierte Währungsfelder umsetzen
Ganz normal als Zahlenwert, also einzeln so:Wie sollte ich die Beträge programmtechnisch übertragen?
Code: Alles auswählen
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: Alles auswählen
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
Gruß
Stephan
Re: Formatierte Währungsfelder umsetzen
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
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
-------------------------------------------------------
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Re: Formatierte Währungsfelder umsetzen
Spontan hätte ich Long als Datentyp vorgeschlagen, aber das Internet verweist mich auf Currency, also nimm Currency :
Code: Alles auswählen
Dim myvalue As Currency
Stephan
Re: Formatierte Währungsfelder umsetzen
Danke, klappt jetzt alles!
-------------------------------------------------------
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)
Windows 11 22H2 /Libre Office 7.3.6.2 (x64)