LStAusBrutto

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