Wie kann ich einen Hyperlink am besten mittels einer Funtkion nochmals verlinken?
Wenn das:
A1=HYPERLINK("www.einfachso.de";"test")
der Ausgangspunkt ist, dann z.B. mittels:
Code: Alles auswählen
=HYPERLINK(TEIL(FORMEL(A1);13;FINDEN(";";FORMEL(A1);1)-14);TEIL(FORMEL(A1);FINDEN(";";FORMEL(A1);1)+2;LÄNGE(FORMEL(A1))-FINDEN(";";FORMEL(A1);1)-3))
Wenn es so direkt nicht geht: Wie komme ich an die URL der Zelle ran, wenn sie nur durch Info-Popup erscheint?
Meines Erachtens nur mit benutzerdefinierter Funktion, z.B.:
Code: Alles auswählen
Function link_link(quellzelle As String, tabelle As String, art As String, Optional dummy)
tmp = ThisComponent.Sheets().getByName(tabelle).getCellRangeByName(quellzelle).Textfields(0)
If art = "Text" Then
link_link = tmp.Representation
ElseIf art = "URL" Then
link_link = tmp.URL
End If
End Function
Diese dann in der Zielzelle mit Hyperlink() kombinieren:
Code: Alles auswählen
=HYPERLINK(LINK_LINK("A1";"Tabelle1";"URL";A1);LINK_LINK("A1";"Tabelle1";"Text";A1))
wobei anzugeben sind:
Name der Quellzelle, hier "A1"
Name des Tabellenblattes der Quellzelle, hier "Tabelle1"
als Parameter entweder "URL" oder "Text", je nachdem an welcher Stelle der HYPERLINK()-Funktion die benutzerdefinierte Funktion LINK_LINK() verwendet wird
zuletzt die Zelladresse der Quellzelle, wobei dieser Parameter optional ist und nur das automatische Aktualisieren sicherstellt wenn sich der Inhalt der Quellzelle ändert.
Gruß
Stephan
[quote]Wie kann ich einen Hyperlink am besten mittels einer Funtkion nochmals verlinken?[/quote]
Wenn das:
[quote]A1=HYPERLINK("www.einfachso.de";"test")[/quote]
der Ausgangspunkt ist, dann z.B. mittels:
[code]=HYPERLINK(TEIL(FORMEL(A1);13;FINDEN(";";FORMEL(A1);1)-14);TEIL(FORMEL(A1);FINDEN(";";FORMEL(A1);1)+2;LÄNGE(FORMEL(A1))-FINDEN(";";FORMEL(A1);1)-3))[/code]
[quote]Wenn es so direkt nicht geht: Wie komme ich an die URL der Zelle ran, wenn sie nur durch Info-Popup erscheint?[/quote]
Meines Erachtens nur mit benutzerdefinierter Funktion, z.B.:
[code]Function link_link(quellzelle As String, tabelle As String, art As String, Optional dummy)
tmp = ThisComponent.Sheets().getByName(tabelle).getCellRangeByName(quellzelle).Textfields(0)
If art = "Text" Then
link_link = tmp.Representation
ElseIf art = "URL" Then
link_link = tmp.URL
End If
End Function[/code]
Diese dann in der Zielzelle mit Hyperlink() kombinieren:
[code]=HYPERLINK(LINK_LINK("A1";"Tabelle1";"URL";A1);LINK_LINK("A1";"Tabelle1";"Text";A1))[/code]
wobei anzugeben sind:
Name der Quellzelle, hier "A1"
Name des Tabellenblattes der Quellzelle, hier "Tabelle1"
als Parameter entweder "URL" oder "Text", je nachdem an welcher Stelle der HYPERLINK()-Funktion die benutzerdefinierte Funktion LINK_LINK() verwendet wird
zuletzt die Zelladresse der Quellzelle, wobei dieser Parameter optional ist und nur das automatische Aktualisieren sicherstellt wenn sich der Inhalt der Quellzelle ändert.
Gruß
Stephan