Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink in Pivot möglich?

Forumthread: Hyperlink in Pivot möglich?

Hyperlink in Pivot möglich?
17.06.2009 08:23:48
Julia
Hallo,
ich habe eine große Pivottabelle in einer Spalte sind lauter URL`s.
Ist es möglich einen Hyperlink daraus zu machen?
Bisher stehen die URL`s nur als Text in der Spalte.
Habe keine Einstellung diesbezüglich gefunden.
Hat jemand eine Idee?
Gruß
Julia
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink in Pivot möglich?
17.06.2009 09:00:19
robert
hi,
probier mal doppelklick auf eine URL ?
gruß
robert
vergiss meinen tipp..sorry..owT
17.06.2009 09:03:48
robert
AW: vergiss meinen tipp..sorry..owT
17.06.2009 09:07:37
Julia
Also habe auch gegooglet, leider nichts gefunden
Anzeige
versuche es mal mit VBA
17.06.2009 09:25:49
Tino
Hallo,
versuche es mal mit VBA die Hyperlinks zu erstellen.
Es wird nach Zellen gesucht die "www." im Text enthalten und
aus dem Inhalt der Zelle der Hyperlink erstellt.
Sub Makro1()
Dim rngFind As Range
Dim LCount As Long


With Sheets("Tabelle4") 'Deine Privottabelle 

    LCount = Application.WorksheetFunction.CountIf(.UsedRange, "*www.*")

    For LCount = 1 To LCount
     If rngFind Is Nothing Then
      Set rngFind = .UsedRange.Find("*www.*", , xlFormulas, xlPart, xlByRows, xlNext, False, False)
     Else
      Set rngFind = .UsedRange.FindNext(rngFind)
     End If
     If Not rngFind Is Nothing Then rngFind.Hyperlinks.Add rngFind, rngFind.Text
    Next LCount
    

End With

End Sub


Gruß Tino

Anzeige
AW: versuche es mal mit VBA
17.06.2009 09:30:21
Julia
Hi Tino
es gibt kein www. da es interne URL's sind
habe deinen Code wie folgt abgeändert

Sub Makro1()
Dim rngFind As Range
Dim LCount As Long
With Sheets("Daten") 'Deine Privottabelle
LCount = Application.WorksheetFunction.CountIf(.UsedRange, "*www.*")
For LCount = 1 To LCount
If rngFind Is Nothing Then
Set rngFind = .UsedRange.Find("*http*", , xlFormulas, xlPart, xlByRows, xlNext, False,  _
False)
Else
Set rngFind = .UsedRange.FindNext(rngFind)
End If
If Not rngFind Is Nothing Then rngFind.Hyperlinks.Add rngFind, rngFind.Text
Next LCount
End With
End Sub


Es kommt keine Fehlermeldung aber die URL`s sind immer noch nur als Text in der Pivot

Anzeige
AW: versuche es mal mit VBA
17.06.2009 09:34:20
Tino
Hallo,
ändere auch in der Zeile
LCount = Application.WorksheetFunction.CountIf(.UsedRange, "*www.*")
den Wert.
In dieser Zeile wird die Anzahl Zellen gezählt die diesen Text enthalten.
Gruß Tino
genial, ABER :(
17.06.2009 09:38:37
Julia
Echt genial,
die URL`S sind jetzt blau und unterstrichen so wie man es kennt. Aber ich kann nicht auf den Link klicken. Es findet keine Weiterleitung zur URL statt.
Es sieht jetzt aus wie ein Link, aber verhält sich so wie vorher
Anzeige
AW: genial, ABER :(
17.06.2009 10:03:48
Tino
Hallo,
kannst Du dich auch mit einem doppelklick anfreunden?
Stelle diesen Code direkt in Deine Privottabelle.
kommt als Code in die Privot 
Option Explicit 
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
 If Target.Count = 1 And InStr(Target, "http") > 0 Then 
  Cancel = True 
  ActiveWorkbook.FollowHyperlink Address:=Target.Text, NewWindow:=True 
 End If 
End Sub


Am einfachsten, unten wo Du die Tabellenregiste sehen kannst, rechtsklick auf die Privottabelle und Code anzeigen auswählen, dort den Code rein kopieren.
Danach kannst Du mit doppelklick auf die Zelle den Hyperlink ausführen.
Gruß Tino

Anzeige
Nur noch genail ;)
17.06.2009 10:33:52
Julia
Klappt perfekt....
Super vielen Dank. Wie kriegt ihr das immer wieder hin? Unglaublich ;)
@ Tino
17.06.2009 10:52:00
Julia
Noch eine kurze Frage:
Wäre es möglich die ersten 70 Zeichen von diesem Link-String auszublenden
/0 Zeichen von links nach rechts
Das aber die Linkeigenschaften bleiben?
sind diese immer gleich?
17.06.2009 11:06:28
Tino
Hallo,
sind diese immer gleich?
Gruß Tino
Anzeige
AW: sind diese immer gleich?
17.06.2009 11:20:48
Tino
Hallo,
müsste so gehen.
kommt als Code in die Privot 
Option Explicit 
 
  
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 
Const Str_Die_Ersten As String = _
"http://www..." 'hier die ersten 70 Zeichen eintragen 
  
 If Target.Count = 1 And Target.Font.Underline = 2 Then 
  Cancel = True 
  ActiveWorkbook.FollowHyperlink Address:=Str_Die_Ersten & Target.Text, NewWindow:=True 
 End If 
 
End Sub

kommt als Code in Modul1 

Sub Makro1() 
Dim rngFind As Range 
Dim LCount As Long 
 
 
With Sheets("Tabelle4") 'Deine Privottabelle 
 
    LCount = Application.WorksheetFunction.CountIf(.UsedRange, "http*") 
 
    For LCount = 1 To LCount 
     If rngFind Is Nothing Then 
      Set rngFind = .UsedRange.Find("http*", , xlFormulas, xlPart, xlByRows, xlNext, False, False) 
     Else 
      Set rngFind = .UsedRange.FindNext(rngFind) 
     End If 
      
     If Not rngFind Is Nothing Then 
      rngFind.Hyperlinks.Add rngFind, rngFind.Text, , , Right(rngFind.Text, Len(rngFind.Text) - 70) 
     End If 
     
    Next LCount 
     
 
End With 
 
End Sub


Gruß Tino

Anzeige
AW: sind diese immer gleich?
17.06.2009 11:28:50
Julia
Muss ich die anderen Makros ersetzen
Oder diese hinzufügen?
ja
17.06.2009 11:36:26
Tino
Hallo,
ersetzen und Makro1 nochmal laufen lassen.
Im anderen Eventmakro noch Deine ersten 70 Zeichen eintragen.
Gruß Tino
AW: sind diese immer gleich?
17.06.2009 11:50:23
Julia
ungültiger Prozeduraufruf:
rngFind.Hyperlinks.Add rngFind, rngFind.Text, , , Right(rngFind.Text, Len(rngFind.Text) - 70)
Anzeige
AW: sind diese immer gleich?
17.06.2009 12:12:53
Tino
Hallo,
Sind überall auch 70 Zeichen enthalten?
Gruß Tino
tausend dank! klappt prima
17.06.2009 14:45:01
Julia
einwandfrei
AW: genial, aber belege die Parameter
17.06.2009 10:07:04
firmus
Hi Julia,
prüfe doch Deine Parameter-Belegung:
For xx = 2 To nnn
'URL setzen für "star.test.com"
tmp1 = "HTTP://star.test.com/issuehistory.jsp?status=all&start_date=&end_date=&contact="
tmp1 = tmp1 & tmp2 & "&issue=" & tmp3 & "+&program=isx1"
ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(xx, 1) _ 'in diese Zelle wir der Link hinterlegt, wert bleibt.
, Address:=tmp1 _ 'tmp1 beinhaltet den realen Link
, ScreenTip:="Click2Open the link" _
, TextToDisplay:= "Beschreibung die angezeigt wird"
Next xx
Gruß
firmus
Anzeige
;

Forumthreads zu verwandten Themen

Seitenfelder in Pivottable
Sibylle

Hallo,
haben Seitenfelder in Pivottables den einzigen Zweck als Filter genutzt werden zu können oder können diese Felder weitere Aufgaben erfüllen? Wenn ja, welche weiteren Aufgaben?
Gruß
Sibylle
21.12.2008 11:52:46
Thread-ID: 1034567
4 Beiträge
Falscher Wert in Pivottable
Thomas

Hallo Leute ich hab hier mal was kurioses festgestellt.
Ich habe in einer Zelle den Wert "S - 176 484" stehen (Zellformat ist Standard).
Bekomme in meinem Pivottable aber "b" angezeigt.
Wenn ich jetzt irgend etwas ändere z.B. "S -176 484" (hier nur ein Leerzeichen entfernt) wird es...
19.06.2017 10:44:45
Thread-ID: 1564748
3 Beiträge
Datenverbindung mit Powerquery
Christian

Hallo,
ich wäre euch sehr verbunden, wenn mir jemand hilft, der sich mit PQ auskennt.
Hier meine Tabelle:
https://www.herber.de/bbs/user/125674.xlsx
Wie ihr seht, gibt es eine Datenverbindung, die von clever-tanken.de Benzinpreise abruft und in Tabelle2 einfügt.
Diese Daten...
27.11.2018 09:05:32
Thread-ID: 1659751
3 Beiträge
Zeilen mit Bedingungen kumulieren mit PowerQuery
gjunge

Hallo zusammen,
ich hatte in einem früheren Beitrag https://www.herber.de/cgi-bin/callthread.pl?index=1649345
bereits mal um Hilfe gebeten. Leider habe ich das Thema lange Zeit vor mir hergeschoben... nun wird es wieder akut. Jetzt habe ich mir aber das AddIn PowerQuery aktivieren dürfe...
29.01.2019 11:28:06
Thread-ID: 1671810
2 Beiträge
Benutzerdefinierte Pivot-Table möglich?
Martin
Hallo Alle zusammen,

ich muss eine Tabelle mit zwei Spalten untersuchen. Die linke Spalte enthält beliebige Werte und die rechte Spalte verschiedene Namen, die sich wiederholen. Ich muß alle Namen auf der rechte Spalte auf Gleichheit untersuchen und die entsprechende Werte auf der Linke Seit...
17.09.2003 14:56:09
Thread-ID: 311228
2 Beiträge
Dynamische Bereich in Pivot-Tables
magicman

Hallo Experten,
vielleicht kann mir jemand helfen.
Wenn ich über Namen/Definieren einen Dynamischen Bereich festlege kann ich diesen Namen nicht als Datenquelle für Pivot benutzten.
Die Pivot-Table meldet, das keine Überschrift vorhanden ist. Der Bereich ist aber so definiert, daß di...
04.06.2004 11:25:53
Thread-ID: 437325
3 Beiträge
Was ist eine Kreuztabelle? PivotTable?
ItsMe

Es wäre wunderbar, wenn mir jemand eine einfache Erklärung zu Kreuztabellen bzw. PivotTable geben könnte!!! Vielleicht auch mit prakt. Bsp. Danke im Vorraus!! ciao!
07.07.2004 14:11:45
Thread-ID: 451440
4 Beiträge
Powerpoint-Hyperlink-Textmarke zu Excel
acid

moin,
möchte in einer .pps einen link zu ner excel-tabelle setzen. dabei soll ein bestimmtes blatt in dieser datei geöffnet werden. wenn ich das bestimmte blatt spezifizieren will über "textmarke", kann er mit dem dateityp von excel nichts anfangen.
gibt es dazu eine erweiterung oder is...
29.11.2004 11:43:51
Thread-ID: 524806
5 Beiträge
Anzeige
ADO Resultset aus CSV Datei in Pivottable
Steffen

Hallo,
folgendes Problem. Ich habe ein Excel Makro welches über ODBC mit ADO auf eine Oracle DB geht, dort einen SQL ausführt und aus dem Ergebnis eine Pivottabelle baut. Das Funktioniert alles wunderbar.
Nun soll nach dem gleichen Prinzip über ODBC mit ADO eine CSV Datei als Datenque...
17.06.2005 08:11:53
Thread-ID: 625160
3 Beiträge
#DIV/0 in Pivot-Table
Ralf

Hallo zusammen,
ich habe in eine Pivot-Tabelle eine selbst definierte Spalte eingefügt. Sie soll die Werte zweier Daten-Spalten ins Verhältnis setzen. Also z.B. Gewinn/Umsatz
Problem dabei - manchmal ist der Umsatz=0, aber ich möchte in meiner Tabelle kein #DIV/0 stehen haben.
Kann...
06.01.2006 15:20:52
Thread-ID: 715970
3 Beiträge
Anzeige
Berchnung in Pivottable
Maiks

Hallo excel Freunde,
ist das möglich innerhalb eine Pivottabelle, ein Zelle als Bezug für die Berechnung andere Zelle zu nehmen?
hier lade ich eine Datei hoch um meine Frage zu verdeutlichen:
Die Datei https://www.herber.de/bbs/user/53783.xls wurde aus Datenschutzgründen gelöscht
15.07.2008 10:55:20
Thread-ID: 993660
5 Beiträge
Dublikate in Zelle entfernen - PowerQuery - M
Der

Hallo liebe Community,
ich habe in Excel-Powerquery eine Spalte mit x-Zeilen.
In einer Zelle dieser Spalte steht z.B. Apfel, Apfel, Birne.
Aus dieser Zelle sollen alle Duplikate entfernt werden und in einer neuen Spalte soll nur noch Apfel, Birne übrig bleiben.
Ich habe schon Lö...
22.10.2019 15:48:50
Thread-ID: 1719059
32 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Hyperlinks in Pivot-Tabellen erstellen

Schritt-für-Schritt-Anleitung

Um Hyperlinks in einer Pivot-Tabelle zu erstellen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine detaillierte Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" und wähle Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub Makro1()
   Dim rngFind As Range
   Dim LCount As Long
   With Sheets("Tabelle4") ' Ersetze "Tabelle4" durch den Namen deiner Pivot-Tabelle
       LCount = Application.WorksheetFunction.CountIf(.UsedRange, "*http*")
       For LCount = 1 To LCount
           If rngFind Is Nothing Then
               Set rngFind = .UsedRange.Find("*http*", , xlFormulas, xlPart, xlByRows, xlNext, False, False)
           Else
               Set rngFind = .UsedRange.FindNext(rngFind)
           End If
           If Not rngFind Is Nothing Then rngFind.Hyperlinks.Add rngFind, rngFind.Text
       Next LCount
   End With
End Sub

  4. Führe das Makro aus: Drücke F5, um das Makro auszuführen. Die Hyperlinks in deiner Pivot-Tabelle sollten jetzt erstellt werden.

Häufige Fehler und Lösungen

  • Fehler: Hyperlinks funktionieren nicht
    Wenn die Links in deiner Pivot-Tabelle nicht anklickbar sind, stelle sicher, dass der Code direkt im Arbeitsblatt der Pivot-Tabelle eingefügt wurde. Nutze den folgenden Code für Doppelklick-Events:

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Count = 1 And InStr(Target, "http") > 0 Then
      Cancel = True
      ActiveWorkbook.FollowHyperlink Address:=Target.Text, NewWindow:=True
  End If
End Sub

  • Fehler: Ungültiger Prozeduraufruf
    Stelle sicher, dass alle URLs in der Datenquelle korrekt formatiert sind und die Anzahl der Zeichen überprüft wird.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du die Hyperlinks manuell in deiner Pivot-Tabelle hinzufügen. Diese Methode ist jedoch zeitaufwendig und nicht so effizient wie die Verwendung von VBA.

  1. Manuelles Hinzufügen von Hyperlinks: Klicke mit der rechten Maustaste auf die Zelle, wähle Hyperlink und füge die URL ein.
  2. Hyperlink in Power Query: Du kannst auch Power Query nutzen, um die Daten mit Hyperlinks zu importieren, allerdings ist dies nicht direkt in einer Pivot-Tabelle möglich.

Praktische Beispiele

  • Beispiel 1: Wenn du interne URLs hast, kannst du den Code anpassen:

    Set rngFind = .UsedRange.Find("*http*", , xlFormulas, xlPart, xlByRows, xlNext, False, False)

  • Beispiel 2: Um die ersten 70 Zeichen eines Links auszublenden, kannst du den folgenden Code verwenden:

    rngFind.Hyperlinks.Add rngFind, rngFind.Text, , , Right(rngFind.Text, Len(rngFind.Text) - 70)

Tipps für Profis

  • Verwendung von Pivot-Links: Experimentiere mit verschiedenen Formaten für die URLs, um sie in Pivot-Tabellen anzuzeigen.
  • VBA-Optimierung: Optimiere deinen Code, indem du Schleifen vermeidest, die über große Datenmengen iterieren.
  • Regelmäßige Sicherung: Stelle sicher, dass du regelmäßig Sicherungen deiner Excel-Datei machst, insbesondere wenn du mit VBA arbeitest.

FAQ: Häufige Fragen

1. Frage
Kann ich Hyperlinks in Power Query erstellen?
Antwort: Power Query selbst unterstützt keine Hyperlinks direkt in Pivot-Tabellen, aber du kannst Hyperlinks in die Datenquelle einfügen, bevor du die Daten importierst.

2. Frage
Sind Hyperlinks in Pivot-Tabellen auf alle Excel-Versionen verfügbar?
Antwort: Ja, die Erstellung von Hyperlinks in Pivot-Tabellen ist in Excel 2010 und neueren Versionen möglich. Achte darauf, dass du das richtige VBA-Format verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige