Code: Alles auswählen
Sub chooseSheet
Dim oCalcDoc as Object
oCalcDoc = ThisComponent
oCalcDoc.currentController.ActiveSheet = oCalcDoc.sheets(2)
End SubSheet aktivieren
Moderator: Moderatoren
Meine Installation: AMD Athlon XP 1600+, 512 MB RAM, SuSE Linux 8.2, OpenOffice 1.1
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/
Kostenlose OOo-CD in der Schweiz: http://www.office-cd.ch/