OpenOffice.info

Code: Alles auswählen

Sub TabellenIndex
oDoc = Thiscomponent
oSheet = oDoc.CurrentController.ActiveSheet.Rangeaddress
msgbox oSheet.sheet
End Sub 

Sub TabellenName
odoc=thiscomponent
osheet=odoc.currentcontroller.activesheet
msgbox osheet.name
End Sub

Code: Alles auswählen

Function fnActiveTab () as String
'-------------------------------------------------
' ermitteln des Names der Aktuellen Tabelle
'-------------------------------------------------
 Dim oDoc As Object 

   oDoc=StarDesktop.CurrentComponent
   
   fnActiveTab = oDoc.CurrentSelection.Spreadsheet.getName()

end function

Code: Alles auswählen

Dim sText as String

  sText=fnActiveTab()
  msgbox sText