Startseite
|
Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos:
starbasic@dannenhoefer.de
Startseite
>
10. Makros und Tools
>
10.3 Tools vom Dannenhöfer
>
10.3.4 GetPosActiveSheet
Zurück
Vor
10.3.4
GetPosActiveSheet
Function GetPosActiveSheet(oDoc as object) as Integer
Liest die Position des aktiven Sheets aus. Daran denken das die Zählung bei 0 anfängt.
Function GetPosActiveSheet(oDoc as object) as Integer
Dim MyName as String
Dim ListOfSheets(1)
Dim i as Integer
MyName=odoc.currentcontroller.activesheet.name
GetNameOfAllSheets(ListOfSheets(),oDoc)
For i=0 to ubound(ListOfSheets())
if ListOfSheets(i)=MyName then GetPosActiveSheet=i
Next
end Function
Seitenanfang
Letzte Aktualisierung:
06.04.2009