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