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