Power Query - Hyperlink aus Dateneingabe behalten...

[Jockel]

... oder neu kreieren..?

Hallo, an alle Interessierte oder und Mitlesende, ich habe eine (große - naja groß ist relativ) Liste, in der ich auch links (http und https) eingebe. Diese ständig wachsende will ich nun mit PQ mitwachsen lassen aber auch nicht mit allen Info's - weil ich sie unter anderem per Formeln sortieren ließ. Kleine lustige Spielerei. Das möchte ich nun nicht mehr. Auch weil irgendwann die Performance leidet...
Ich möchte mit einer PQ-Abfrage (auch noch alles Spielerei) die neue Liste erstellen und sortieren lassen - funktioniert. Aber meine eingegebenen Hyperlinks funktionieren in der Abfrage nicht... ;-( Ich glaube nicht, dass dafür eine Bsp.Datei not tut...

[GMG-CC]

Moin Jörg,
die beste Quelle die ich im Internet dazu gefunden habe ist diese. Irgendwann im Laufe des Tages werde ich das etwas ergänzen und in meinen Blog (natürlich in DE) übernehmen.

[GMG-CC]

... und jetzt auch in DE  :05:

[Jockel]

Hi Günther, ich habe erst jetzt die Möglichkeit zu testen... Privat habe ich mal wieder kein Internet (wahrscheinlich bis mindestens Mittwoch) ... Ich schaue es mir ASAP an... Danke schon mal für deine Mühe...

[Jockel]

Hallo Günther, ich kriege es (noch) nicht hin... ...bis hier komme ich 

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B
1	Name	Link
2	1und1	'=HYPERLINK("https://www.1und1.de/")
3	Adobe	'=HYPERLINK("http://www.adobe.com/de/#")
4	Google	'=HYPERLINK("https://www.google.de/")
5	Microsoft	'=HYPERLINK("https://www.microsoft.com/de-de")
6	Strato	'=HYPERLINK("https://www.strato.de/")
7	Telekom	'=HYPERLINK("https://www.telekom.de/start")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

und das steht im Quelltext..:

PHP-Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    #"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Name", type text}, {"URL", type text}}),
    #"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Geänderter Typ", "Link", each "'=HYPERLINK(""" & [URL] &""")"),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"URL"}),
    #"Sortierte Zeilen" = Table.Sort(#"Entfernte Spalten",{{"Name", Order.Ascending}})
in
    #"Sortierte Zeilen" 


[url]
Die weitere Bearbeitung bringt nicht das Ergebnis aus deinem Blog..:
[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
und..:
[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]
aber die ' bleiben...!!![/url]

[GMG-CC]

Moin Jörg,
ich werde vielleicht meinen Text noch etwas nacharbeiten müssen ...

Ja, weiter kommst du auch nicht in Power Query. Ab hier ist im Tabellenblatt plain Excel angesagt. Also in Spalte_B ersetzt du '= durch (nur) = und dann sollten das schon klickbare Links sein, da jetzt in den Zellen eine Funktion steht und kein Text. Danach kannst du dann noch die Formatierung auf Hyperlink anpassen, siehe das schön bunte Fenster ziemlich weit oben im Beitrag. Bei der 2016er Version sieht das allen vielleicht etwas anders aus als bei 20xx/365, aber ich denke, das kriegst du hin. Der VBA-Code ist nur für die Automatisierung des Suchen/Ersetzens.

Good luck und frage gerne weiterhin, so sehe ich wenigstens, dass etwas nicht so verstanden wird, wie ich es gerne hätte. 
Alternative: Sende mir per Mail einen kleinen Auszug deiner Daten, dann schaue ich mal ...

EDIT
Ähmmm, ab "Die weitere Bearbeitung ..." hatte ich eben nichts mehr gesehen, jetzt nach meiner Antwort erst.
Die Bilder sich nach einem Klick darauf glaube ich noch kleiner  :22: stell sie bitte noch einmal ein oder per Mail.
Was da schief läuft kann ich mir im Moment nicht denken, aber wie heißt es doch so schön: "Wir werden den Schwein schon töten, wenn ihm auch quiekt"

[Jockel]

Moin Günther, das habe ich auch gemacht (Formatierung) Also im Moment kriege ich es nicht hin... Aber ich werde weiter "üben"...

[GMG-CC]

Computer hat etwas mit Voodoo zu tun ...
Bei mir ist zwar un den Zellen das Auslassungszeichen verschwunden, in der Editierzeile steht es aber noch drin. 
W A R U M    (Gestern funzte alles so prächtig.)
Ich arbeite daran ...

[snb]

Code:

Sub M_snb()
    sn = Tabelle1.Cells(1).CurrentRegion
    
    For j = 2 To UBound(sn)
       sn(j, 2) = "=hyperlink(""" & sn(j, 2) & """,""" & sn(j, 1) & """)"
    Next
    
    Tabelle2.Cells(1).resize(ubound(sn),ubound(sn,2)) = sn
End Sub

[Jockel]

...
Bei mir ist zwar un den Zellen das Auslassungszeichen verschwunden, in der Editierzeile steht es aber noch drin. ...

Moin Günther, bei mir auch...