Seite 1 von 1
Calc / aktive Tabelle ermitteln
Verfasst: So, 21.10.2007 10:57
von Wolf
Hallo,
Eine Frage.
Weiss jemand, wie man die gerade aktive Tabelle (Name oder Nummer) in einer Calc-Tabelle ermitteln kann?
Also ein Tabellendokument mit z.B. 4 Blaettern. Die Namen sind willkuerlich z.B. in [Blatt1], [Verweise], [test], [Anhang] benannt und der Cursor befindet sich gerade in Tabelle [test].
Nun will ich per Makro ermitteln, in welcher Tabelle der Cursor steht.
Hat das schon jemand gemacht?
Danke an alle.
Wolf
Re: Calc / aktive Tabelle ermitteln
Verfasst: So, 21.10.2007 11:36
von Wolf
Hallo,
Ja und schon habe ich eine Antwort gefunden.
Die habe ich mir in eine Function gepackt. Siehe unten.
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
Hier noch der Aufruf:
Danke Allen.
Wolf
Wolf
Re: Calc / aktive Tabelle ermitteln
Verfasst: So, 21.10.2007 11:38
von ghostwriter
Hi Wolf,
folgende Codes müssten funktionieren:
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
Schöne Grüsse.
Jakob
Re: Calc / aktive Tabelle ermitteln
Verfasst: So, 21.10.2007 15:14
von Wolf
ghostwriter hat geschrieben:Hi Wolf,
folgende Codes müssten funktionieren:
Code: Alles auswählen
Sub TabellenIndex
oDoc = Thiscomponent
oSheet = oDoc.CurrentController.ActiveSheet.Rangeaddress
msgbox oSheet.sheet
End Sub
Hallo Jakob,
Danke, o.g. Code habe ich dann auch in meine Bibliothek aufgenommen.
Nochmals vielen Dank fuer die Hilfe.
Wolf