Hyperlinks zentral definieren und darauf verweisen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo JJ,
habe mir vor einiger Zeit folgende Lösung ausgedacht.
Alle Hyperlinks zeigen auf sich selbst, d.h.: ein Hyperlink in Tabelle1!B5 hat als Ziel-Adresse ebenfalls Tabelle1!B5.
Das scheint paradox zu sein, aber im Ereignis Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink) wird die eigenliche Arbeit getan. Dieses Ereignis tritt immer auf, wenn man einen Hyperlink anklickt.
So wird der Hyperlinkname ausgelesen und in der Tabelle "Hyperlink" gesucht.
Dort wird dann auch geprüft, ob das Ziel extern (andere Datei, Internet usw.) oder intern (eigene Arbeitsmappe) ist.
Dementsprechend wird mit dem Befehl FollowHyperlink der externe Aufruf gestartet bzw. mit GoTo die Zieladresse in der Arbeitsmappe angesprungen.
Die Hyperlink-Tabelle kann man dann im Vba-Editor auf xlVerryHidden setzen, und der User kann dann daran nicht mehr rumfummeln.
Dann mußt Du Dir nur noch 1 Funktion schreiben, die alle Hyperlinks wieder auf sich selbst zeigen läßt, falls unerwünschte Kräfte an Deiner Arbeit ziehen und zerren.
Damit die Theorie nicht so grau bleibt, ist hier mein Praxis-Beispiel ohne letztgenannte Funktion.:
https://www.herber.de/bbs/user/27928.xls
Gruß von Luschi
aus klein-Paris

Hallo Luschi aus Leibzichhhh (hey, ich kann gooooogeln....!)
Hoffe, Du hast Dich inzwischen gut entspannt und bist wieder ready für ein paar Erklärungen (die brauch ich nämlich...).
Also, irgendwie bin ich verloren, darum hier mal, was ich mache bzw. wie ich das ganze verstanden habe:
1) in der Tabelle "hyperlink" definiere ich die internen und externen Links im Bereich "B2:B25" (gemäss Makro "Workbook_SheetFollowHyperlink": Set rg1 = ws.Range("B2:B25"))
2) das sieht etwa so aus:
Name Hyperlink Quelle Ziel extern/intern
---------------------------------------------------------------------------------------------
zu Tabelle2 Tabelle1 B4 Tabelle2!C10
Herber-Excel Tabelle1 B8 https://www.herber.de/forum/index.htm #
3) In "Tabelle1 B4" schreibe ich nun den Titel des Hyperlinks, also "zu Tabelle2 rein.
4) In "Tabelle1 B4" erstelle ich nun einen Hyperlink auf sich selber (Also Tabelle1 B4)
5) Wenn ich nun auf den Text "zu Tabelle2 " klicke, werde ich auf das Ziel "Tabelle2!c10" weitergeleitet; alles ok....
6) Ich wiederhole die Steps 3 und 4, aber an einer andern Quelle (Tabelle1 B14), und MURPHY AHOI, es geht ja alles tip top.... Was zum Deibel.... Na ja, es geht auf jeden Fall....
Daher bleiben nur noch eine Frage: für was genau ist die Angabe "Quelle" in der Tabelle "Hyperlinks" (Also z.b. Tabelle1 BB) für den Link zu herber.de? Ich kann da drin auch schreiben "von irgendwo her...), und es funktioniert bestens....
Uuuuups; ich hab doch noch ein Problem.... Der VBA-Code, in meinem bestehenden XLS eingebunden im "Modul5", geht irgendwie nicht.... Habe ihn wie folgt angepasst:


Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim wb As Workbook, ws As Worksheet, rg1 As Range, rg2 As Range, _
xName As String, ex_in As String, hypWohin
Set wb = ThisWorkbook
Set ws = wb.Worksheets("Definitionen")
Set rg1 = ws.Range("B23:B63")
Set rg2 = Nothing
xName = Target.Name
Set rg2 = rg1.Find(xName, , xlValues, xlWhole, xlByColumns, xlNext)
If Not (rg2 Is Nothing) Then
hypWohin = rg2.Offset(0, 2)
ex_in = rg2.Offset(0, 3)
If ex_in = "#" Then
wb.FollowHyperlink Address:=hypWohin, NewWindow:=True
Else
Application.Goto Reference:=Range(hypWohin)
End If
End If
End Sub

--> habe nur den Namen des Worksheets (Definitionen) und den Link-Namen-Range (B23:B63) angepasst. Und dann wie oben beschrieben die Links definiert und eingebunden. Aber jetzt geht einfach nichts, wenn ich auf den Link klicke... (Super Aussage, "es geht nix".... Kann aber leider nicht mehr aussagen, es kommt keine Fehlermeldung, und es geht kein Link.... Habe ich alles? Brauche ich noch weiteren Code? Kann ich irgendwie Debuggen? )
Kannst Du mir nochmals weiterhelfen?
Vielen Dank und bis später
JJ

Beliebteste Forumthreads (12 Monate)

Hyperlinks zentral definieren und darauf verweisen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread