Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Dim oDoc as Object, oSheet as Object
- Dim aBrutto(1 to 12) as Double
- Dim dLSt as Double
- Dim i as integer
- Sub GetData
- REM Holt die Daten aus allen Tabellen "Januar" = 0 bis Dezember = 11 und setzt sie in Zwischentabelle ein
- REM Setzt Daten in Berechnungstabelle "Ablauf"
- For i = 0 to 11
- ' Daten holen
- oSheet = ThisComponent.sheets(i)
- aBrutto(i+1) = oSheet.getCellRangeByName("G36").getValue()
- ' Daten einsetzen in Tab. "Übersicht"
- ThisComponent.sheets(14).getCellByPosition(4,i+3).setValue(aBrutto(i+1))
- 'Wert in Tab. "Ablauf" einsetzen in Cent
- ThisComponent.sheets(13).getCellRangeByName("B16").setValue(aBrutto(i+1)*100)
- 'LSt aus Tabelle ablesen in Cent
- dLSt= ThisComponent.sheets(13).getCellRangeByName("B231").getValue()
- ' und in Tab "Übersicht" einsetzen in Euro
- ThisComponent.sheets(14).getCellByPosition(5,i+3).setValue(dLSt/100)
- Next
- MsgBox("Habe fertig!!",64,"Hinweis")
- End Sub
Advertisement
Comments
-
- "Quick 'n'Dirty" solution to read the salary from 12 tables and set it in into a template to calculate the tax.
- Read the tax and set it in to a separate tablecolumn
Add Comment
Please, Sign In to add comment
Advertisement