AW: Beispieldatei
07.08.2019 19:02:34
mpb
Hallo Heide,
versuche mal folgendes:
In deiner Bespieldatei in Spalte F die Überschrift "Short" und jeweils eine sprechende Kurzbezeichnung für den Link angeben, z.B. Google, Siemens. In Spalte L sollte der komplette Link angezeigt werden. In der Pivottabelle statt "Link" nun "Short" anzeigen lassen.
In dem Klassenmodul der Pivottabelle folgenden Code einfügen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then
On Error Resume Next
r = Target.Value
Set m = Worksheets("Tabelle1").Range("F2:L5") 'Tabellennamen und Bereich anpassen
adr = Application.WorksheetFunction.VLookup(r, m, 7, 0) '3. Parameter anpassen
ActiveWorkbook.FollowHyperlink _
Address:=adr, _
NewWindow:=True
On Error GoTo 0
End If
End Sub
Dazu mit der rechten Maustaste auf den Tabellenreiter der Pivottabelle klicken und aus dem Kontextmenü "Code anzeigen" auswählen.
Wenn du jetzt auf eine der Kurzbezeichnungen in der Pivottabelle klickst, sollte die zugehörige Website geöffnet werden. Den Code musst du dann noch auf die Gegebenheiten deiner "Echtdatei" anpassen.
Gruß
Martin