Excel draaitabel hyperlink tonen

[Nicolette]

Ik maak dagelijks gebruik van een excel overzicht. Over het overzicht maak ik een draaitabel.
In het overzicht staat een veld met een hyperlink. Wanneer dit veld wordt geselecteerd in de draaitabel dan wordt dit als een vaste waarde gezien en dus niet de hyperlink.

Nu heb ik gezocht naar de mogelijkheden en kwam ik een VBA regel tegen namelijk:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
On Error Resume Next
Application.ActiveWorkbook.FollowHyperlink Address:=CStr(Target.Value), NewWindow:=True
End Sub

Maar dit zorgt er niet voor dat het veld als hyperlink getoond wordt. Kan iemand mij helpen? Of wil ik iets wat niet kan

[Sethro]

Weet niet precies wat je toepassing is maar je zou in een kolom direct naast je pivot tabel de hyperlink functie kunnen gebruiken om een klikbare link te maken. Dit baseer je dan op de tekst in de pivot tabel.

=HYPERLINK(D5;"Klik")

Hierbij is "D5" de tekst van de hyperlink.

Dat is een beetje quick n dirty maar wel zonder VBA wat ook altijd een gedoetje is.

[ Voor 29% gewijzigd door Sethro op 22-03-2022 14:07 ]

[goldcard]

Nicolette schreef op dinsdag 22 maart 2022 @ 13:59:
Wanneer dit veld wordt geselecteerd in de draaitabel dan wordt dit als een vaste waarde gezien en dus niet de hyperlink.

Wat bedoel je hier mee en kan je een voorbeeld van jouw dataset geven?
Een draaitabel maakt over het algemeen een samenvatting van de data. Dus hoeveel keer (count) komen er hyperlinks voor in de hyperlink-kolom voor bepaalde kenmerken die jij selecteert voor jou draaitabel (bij rows/columns). Je krijgt dan een getal ipv de waarde uit de oorspronkelijke cel.

[Nicolette]

Ik kan helaas geen bijlage toevoegen, maar mijn bestand ziet er als volgt uit:

tab 1 overzicht tweekolommen
nummer Link
5 test1 (dit laatste is een formule 0 =HYPERLINK("http://www.google.com";"test1"))
2 test2 (dit laatste is een formule 0 =HYPERLINK("http://www.google.com";"test2"))
3 test3 (dit laatste is een formule 0 =HYPERLINK("http://www.google.com";"test3"))


tab 2 is een draaitabel over dit overzicht
Hier toon ik alleen de kolom Link,
Nu wordt alleen de vaste waarde getoond namelijk test1, test2, test3. En hier kan ik niet op klikken. Het wordt niet doorverwezen naar in dit geval http://www.google.com

[goldcard]

Wat is het doel van een draaitabel met maar 1 kolom en geen rows en/of filters? Wat wil je bereiken op tab2?

[Nicolette]

Dit is een voorbeeld, mijn echte overzicht bestaat uit 23 kolommen en ongeveer 1500 rijen en in de draaitabel maak ik filters en dergelijke. Dit is een voorbeeldbestand.

[dixet]

Die code komt zo te zien uit het eerste google resultaat

Dit zorgt er voor dat als je op een cel klikt naar het adres in die cel wordt gegaan,niet dat de tekst er uit ziet als een hyperlink. De code verwacht dus dat tekst in de cel al een webadres is.

code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <> 1 Then Exit Sub
On Error Resume Next
Application.ActiveWorkbook.FollowHyperlink Address:="http://www.google.com&q="&Cstr(Target.Value), NewWindow:=True
End Sub

Zo zou hij wel moeten werken. Om het er ook als hyperlink uit te laten zien kan je de celopmaak wijzigen naar blauwe tekst en onderstreept. Dan is het net echt.