Seite 1 von 1

[gelöst] Wie kann ich mit dem erfragten Tabellenblattnamen..

Verfasst: So, 07.12.2008 23:40
von wega
Hallo zusammen,

mit nachfolgendem Code habe ich den aktiven Tabellenblattnamen erfragt.

Code: Alles auswählen

Tabellenname = ThisComponent.getCurrentController.getActiveSheet.getName()
Nun möchte ich die nachfolgenden Zeile, welche funktioniert,

Code: Alles auswählen

mySheet = oDoc.Sheets.getByName("PN11")
durch diese dynamische ersetzen.

Code: Alles auswählen

mySheet = oDoc.Sheets.getByName(Tabellenname)
Folgende Variante habe ich auch schon versucht.

Code: Alles auswählen

mySheet = odoc.getCurrentController.getActiveSheet.getName()
Egal wie ich es anstelle, es will mir nicht gelingen, das Tabellenblatt mit einer dynamischen Namensabfrage zu bearbeiten.

Hat irgendwer eine Idee?

mit Gruß
Werner

Re: Wie kann ich mit dem erfragten Tabellenblattnamen arbeiten?

Verfasst: Mo, 08.12.2008 00:25
von turtle47
Hallo Werner,

Du musst die Variable "Tabellenname" vorher noch denfinierten.

Code: Alles auswählen

Dim Tabellenname as String
Beispielcode:

Code: Alles auswählen

Dim Tabellenname as String
Sub Main
Tabellenname = ThisComponent.getCurrentController.getActiveSheet.getName()
msgbox Tabellenname
Main1
End Sub

Sub Main1
odoc=ThisComponent
mySheet = oDoc.Sheets.getByName(Tabellenname)
mycell = mysheet.getCellByPosition(0,0)
myCell.string = "Hallo"
End Sub
Wenn du dort die Variablendefinition rausnimmst bekommst Du eine Fehlermeldung.

Viel Erfolg.

Jürgen

Re: Wie kann ich mit dem erfragten Tabellenblattnamen arbeiten?

Verfasst: Mo, 08.12.2008 08:52
von wega
Hallo Jürgen,

Danke, so hat es dann auch bei mir funktioniert.

Gruß
Werner