Hyperlink: Adresse auslesen

[Concitus]

Nabend,
Da ich von Excel auf OpenOffice umgestiegen bin und meine Tabellen nicht kompatibel sind brauche ich ein bisschen Hilfe.Ich sage jetzt schonmal danke.Danke

In Zelle A1-700 sind verlinkte Zellen,deren Adresse ich auslesen und in Zelle P1-700 darstellen möchte.In Excel habe ich das mit einer Function umgesetzt,in OpenOffice funktioniert dies aber nicht.

Gibt es eine Lösung dies auch in OpenOffice umzusetzen?Ich sage schonmal danke im vorraus.





LG Concitus/Alex

[bst]

Abend Alex,

B1: =EXTRACTHYPERLINK(1;1;ROW())

liest den Hyperlink aus A1. Nach unten kopierbar. Siehe auch:

http://www.stmoser.net/blog/2009/10/30/ ... ukationen/
http://www.oooforum.org/forum/viewtopic ... 0625#80625

cu, Bernd
--

Code: Alles auswählen

Function ExtractHyperLink(lSheet as Long, lCol as Long, lRow as Long) as String
	ExtractHyperLink = "– no Hyperlink –"
	fields = ThisComponent.Sheets.getByIndex(lSheet-1).getCellByPosition(lCol-1,lRow-1).getText().getTextFields()
	if fields.hasElements() then
		ExtractHyperLink = fields.getByIndex(0).URL
	endif
end function

[Concitus]

Ich danke dir für deine Hilfe aber irgendwas scheine ich falsch zu machen.
Ich habe in Zelle A1 meinen Link und in P1 die von dor angegebene Formel.Für den Code habe ich ein neues Modul erstellt und ihn rein kopiert.
Aber trotzdem bekomme ich den Fehler #Name?



LG

[bst]

Hi,

die Funktion muss wohl in ein Standard Modul. Siehe http://wiki.services.openoffice.org/wik ... _functions

Dann sollte das eigentlich auch funktionieren?

Die ersten beiden Parameter sind die Nummer der Tabelle und der Spalte, ab 1 zählend.

HTH, Bernd

[Concitus]

Ich danke dir.Jetzt hab ich es auch endlich verstanden



LG