Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

Acemin
Beiträge: 6
Registriert: Do, 15.12.2016 14:41

Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag 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
nikki
******
Beiträge: 787
Registriert: Do, 05.03.2015 10:42

Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag von nikki »

Hallo,
siehe Programmhilfe zur Funktion HYPERLINK.
Gruß

---------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.7, LO 6.3.4 (x64)
Acemin
Beiträge: 6
Registriert: Do, 15.12.2016 14:41

Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag von Acemin »

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.
nikki
******
Beiträge: 787
Registriert: Do, 05.03.2015 10:42

Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag von nikki »

Sorry,
ich war der Meinung, dass der Text z.B. bei

Code: Alles auswählen

=(HYPERLINK(A1)
entfällt. Dem ist aber nicht so.
Gruß

---------------------------------------------------------
Win.10 Prof. 64-bit, AOO 4.1.7, LO 6.3.4 (x64)
Benutzeravatar
balu
********
Beiträge: 3812
Registriert: Fr, 24.08.2007 00:28
Wohnort: Warstein

Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag von balu »

Hallo Acemin,
Bin ich nur blind, hab ich es falsch erklärt oder einfach doof? :D
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

Code: Alles auswählen

=EXTRACTHYPERLINK(1;1;ZEILE())
 


Gruß
balu
Sei öfter mal ein Faultier, sag öfter mal "Ach was!" Dann kriegst du keinen Herzinfarkt, und hast ne menge Spass.

wehr rächtschraipfähler findet khan si behalden :D
Acemin
Beiträge: 6
Registriert: Do, 15.12.2016 14:41

Re: Möglichkeit Links hinter Linktexten automatisch zuerzeugen

Beitrag 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
Antworten