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

[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

[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

[wega]

Hallo Jürgen,

Danke, so hat es dann auch bei mir funktioniert.

Gruß
Werner