Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub
Moderator: Moderatoren
Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End Sub