Seite 1 von 1
Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Do, 15.12.2016 14:57
von Acemin
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
Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Do, 15.12.2016 15:06
von nikki
Hallo,
siehe Programmhilfe zur Funktion HYPERLINK.
Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Do, 15.12.2016 15:12
von Acemin
Bin ich nur blind, hab ich es falsch erklärt oder einfach doof?
Ich brauch ja sozusagen einen umgedrehten HYPERLINK, muss den HYPERLINK übrig behalten und den freundlichen Text sozusagen löschen.
Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Do, 15.12.2016 15:35
von nikki
Sorry,
ich war der Meinung, dass der Text z.B. bei
entfällt. Dem ist aber nicht so.
Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Do, 15.12.2016 16:20
von balu
Hallo Acemin,
Bin ich nur blind,
hab ich es falsch erklärt oder einfach doof?
Der unterstrichene Teil trifft es eigentlich .
Ich brauch ja sozusagen einen umgedrehten HYPERLINK
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: 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
'
'=EXTRACTHYPERLINK(1;1;ZEILE())
' die erste 1 ist für das Blatt
Steht der "Hyperlink" z.B. in Tabelle1.A1, dann in in B1
Gruß
balu
Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen
Verfasst: Fr, 16.12.2016 14:52
von Acemin
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