Aus Hyperlink den Link automatisiert auslesen

[F3K Total]

Hallo,
ich weiß nicht ob es eine Calc Funktion dafür gibt, daher habe ich eine geschrieben:

Erstelle im Makro-Bereich folgende Function:

Code: Alles auswählen

function get_Hyperlink(sCell)
osheet=thiscomponent.currentcontroller.activesheet
ocell=osheet.getcellrangebyName(sCell)
get_Hyperlink=ocell.textfields(0).url
End function

Angenommen Dein Link steht in der Zelle A1
Gib in B1 folgende Formel ein:

Code: Alles auswählen

=GET_HYPERLINK(ZELLE("ADRESSE";A1))

Dann wird Dir in B1 der Hyperlink der hinter A1 liegt angezeigt.

Gruß R