Verfasst: Di, 06.01.2004 15:35
Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Subdeutsches Forum rund um Apache OpenOffice und LibreOffice
http://www.oooforum.de/
Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub