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