OpenOffice.info

 Option Explicit
Sub HyperlinkAufZelle
  Dim oDoc 
  Dim oText   
  Dim oField  
  Dim oCell  
  Dim oSheet 
  oDoc = thisComponent
  oSheet =  oDoc.sheets(0)
  oCell = oSheet.getCellByPosition(0,1)
  oField = ThisComponent.createInstance("com.sun.star.text.TextField.URL")'URL Textfeld erzeugen
  oField.Representation = oCell.getString()
	oField.Representation ="mein Name" 'Text, der im Hyperlink erscheint 
  oField.URL = ConvertToURL("#Tabelle1.A1")

'--Erzeugt den Hyperlink
 oCell.setString("")'stellt dem Hyperlink weiteren Text voran
 oText = oCell.getText()
  oText.insertTextContent(oText.createTextCursor(), oField, False)
End Sub

hallo stephan,

danke für deinen tipp. ich bin inzwischen fündigen geworden. :lol:

der code für das setzen von hyperlinks lautet wie folgt:

[code] Option Explicit
Sub HyperlinkAufZelle
Dim oDoc
Dim oText
Dim oField
Dim oCell
Dim oSheet
oDoc = thisComponent
oSheet = oDoc.sheets(0)
oCell = oSheet.getCellByPosition(0,1)
oField = ThisComponent.createInstance("com.sun.star.text.TextField.URL")'URL Textfeld erzeugen
oField.Representation = oCell.getString()
oField.Representation ="mein Name" 'Text, der im Hyperlink erscheint
oField.URL = ConvertToURL("#Tabelle1.A1")

'--Erzeugt den Hyperlink
oCell.setString("")'stellt dem Hyperlink weiteren Text voran
oText = oCell.getText()
oText.insertTextContent(oText.createTextCursor(), oField, False)
End Sub[/code]

Was wäre denn mit einfachem Aufzeichnen von Copy und paste? (mittels Makrorekorder aufzeichnen)
Ansonsten kannst Du in den Zielzellen mittels Funktion HYPERLINK() arbeiten, also in etwa:

<Zellobjekt>.FormulaLocal

Wie Du per Hand Links überträgst das sie wie im Orginal als 'Feld'-formatiert ankommen kann ich im Moment nicht sagen.



Gruß
Stephan

hallo profis,

ich möchte im tabellenblatt 1 hyperlinks von a1 bis a10 aus den gleichnamigen zellen des tabellenblattes 2 eintragen lassen. kennt da jemand beispiele?

freue mich auf eine antwort.

grüße

klaus