[gelöst] Calc Arbeitsblatt als Sprungziel festlegen

[msxport]

Hallo,

ich möchte von einer Zelle in eine andere Calc-Datei auf ein bestimmtes Arbeitsblatt verlinken.
Habe folgenden Code, teilweise aus anderen Forenbeiträgen zusammengestellt:
(Ist noch auf die selbe Datei verlinkt)

Code: Alles auswählen

Sub Main
Dim oDoc As Object   
Dim oSheet As Object   
oDoc = ThisComponent    'Aktives Dokument holen
oSheet = oDoc.currentcontroller.activesheet  'aktives Arbeitsblatt des aktiven Dokumentes holen
Dim Pfad As String
Dim Arbeitsblattname As String
Pfad = oDoc.getUrl
Arbeitsblattname = oSheet.name
MsgBox Pfad & "  " & Arbeitsblattname

Dim oCell As Object
Dim oText As Object
Dim oLink As Object
oCell = oSheet.getCellByPosition(2,4) 
oText = oCell.getText() 
  
oLink = oDoc.createInstance("com.sun.star.text.TextField.URL") 
oLink.URL = Pfad
oLink.Representation = "Linkanzeige" 
'oLink.TargetFrame = Arbeitsblattname

oCell.insertTextContent(oText.createTextCursor(),oLink,True) 

End Sub

Meine Frage: Wie kann man als Sprungziel den Arbeitsblattnamen einstellen?

(Windows XP, OpenOffice 3.3)

MfG
Markus

[bst]

Hi Markus,

Code: Alles auswählen

    oLink.URL = Pfad & "#" & "Tabelle2"

HTH, Bernd

[msxport]

Hallo,
funktioniert, vielen Dank!
MfG
Markus