OpenOffice.info

Hallo Balu,

vielen Dank für das Makro, das werde ich mal testen. Es handelt sich nämlich um einen Internet-Hyperlink. Irgendwie ist das eigentlich eine Funktionalität für die man durchaus eine Standarfd-Formel erstellen könnte. :) Vor dem Problem stand ich selbst schon des Öfteren und Kollegen auch. Ich habe bisher keine Lösung gefunden.

Grüße
Ace

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
'
'=EXTRACTHYPERLINK(1;1;ZEILE())
' die erste 1 ist für das Blatt

=EXTRACTHYPERLINK(1;1;ZEILE())
 

Hallo Acemin,

[quote]
Bin ich nur blind, [u]hab ich es falsch erklärt[/u] oder einfach doof? :D
[/quote]
Der unterstrichene Teil trifft es eigentlich . ;-)


[quote]
Ich brauch ja sozusagen einen umgedrehten HYPERLINK
[/quote]
Um was für eine Art von "Hyperlink" handelt es sich denn?
Wenn es ein "Hyperlink" ist um innerhalb einer Datei von einem Tabellenblatt zum anderen Tabellenblatt zu springen, dann gibts wohl so etwas, jedoch müsstest Du hier mal danach suchen.

Wenn es aber ein Internet-Hyperlink ist, a-la http://..... dann könnte das folgende Makro funktionieren.
[code=php]
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
'
'=EXTRACTHYPERLINK(1;1;ZEILE())
' die erste 1 ist für das Blatt
[/code]
Steht der "Hyperlink" z.B. in Tabelle1.A1, dann in in B1
[code=php]
=EXTRACTHYPERLINK(1;1;ZEILE())
 [/code]



Gruß
balu

=(HYPERLINK(A1)

Sorry,
ich war der Meinung, dass der Text z.B. bei
[code]=(HYPERLINK(A1)[/code]
entfällt. Dem ist aber nicht so.

Bin ich nur blind, hab ich es falsch erklärt oder einfach doof? :D

Ich brauch ja sozusagen einen umgedrehten HYPERLINK, muss den HYPERLINK übrig behalten und den freundlichen Text sozusagen löschen.

Hallo,
siehe Programmhilfe zur Funktion [b]HYPERLINK[/b].

Hallo alle,

ich habe eine Tabelle mit sehr vielen Links in einer Spalte A. Die Links haben alle einen abweichenden Linktext bekommen ("hier klicken"). Nun bräuchte ich aber alle Links ohne Linktext in der Reinform in Spalte B... gibt es eine Möglichkeit, dass ich das für alle Links mache mit einer Formel, ohne jeden einzelnen alternativen Linktext zu entfernen?

Grüße