7.3.2 Wie kann man das aktuelle Sheet oder alle ermitteln?
Um einfach Zugriff auf das aktuelle Sheet zu erhalten genügt die Referenzierung von odoc.currentcontroller.activesheet

osheet=odoc.currentcontroller.activesheet

Möchte man die Anzahl aller Sheets und/oder die Position innerhalb der Sheets ermitteln, geht dies mit der Hilfe von zwei Properties, einer von Document und einer von Sheets.

Um die gesamte Anzahl der Sheets zu ermitteln genügt sheets.count:

  myDoc = thisComponent
  Anzahl=myDoc.Sheets.count

Um jetzt noch die Namen der einzelnen Sheets auszulesen, muß man nur eine Schleife über die Gesamtzahl der Sheets laufen lassen.

  myDoc = thisComponent
  Anzahl=myDoc.Sheets.count
  For i=0 to Anzahl-1
     mySheet = myDoc.Sheets(i)
     msgbox mysheet.name
  Next i

Möchte man die Position des aktuellen Sheet ermitteln, muß man einen Vergleich der Namen mit dem Namen des aktiven Sheets machen.
Der Name des aktiven Sheets steht in odoc.currentcontroller.activesheet.name.
Ich habe dazu die Funktion GetPosActiveSheet geschrieben. Sie ist bei den Makros und Tools zu finden

Siehe auch bei Makros und Tools nach: Sub GetNameOfAllSheets(NameOfSheets())