OpenOffice.info

Code: Alles auswählen

sub activate_last_sheet
	doc = thisComponent
	sheets = doc.Sheets
	doc.CurrentController.setActiveSheet(sheets(sheets.Count -1))
end sub

Code: Alles auswählen

Sub AktiviereLetztesJahresblatt
    Dim oDoc As Object
    Dim oSheets As Object
    Dim oSheet As Object
    Dim i As Integer
    Dim maxYear As Integer
    Dim maxYearSheet As Object

    oDoc = ThisComponent
    oSheets = oDoc.getSheets()
    maxYear = 0

    For i = 0 To oSheets.getCount() - 1
        oSheet = oSheets.getByIndex(i)
        If IsNumeric(oSheet.Name) And CInt(oSheet.Name) > maxYear Then
            maxYear = CInt(oSheet.Name)
            maxYearSheet = oSheet
        End If
    Next i

    If Not IsEmpty(maxYearSheet) Then
        oDoc.CurrentController.setActiveSheet(maxYearSheet)
    End If
End Sub