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://de.openoffice.info/
Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub