Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink "zurück"

Hyperlink "zurück"
15.01.2009 14:52:00
Matthias
Hallo zusammen,
ich möchte das Ziel eines Hyperlinks dynamisch ändern. Bsp. es gibt sowohl in Tabelle1 als auch in Tabelle2 einen Hyperlink auf Tabelle3. In Tabelle drei soll es einen Hyperlink "zurück" geben. Abhänging von welcher Tabelle ich auf Tabelle3 verlinkt habe soll sich da Ziel vom Hyperlink "zurück" ändern. Ich hätte es wie folgt probiert.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ZielZelle As String
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
ZielZelle, TextToDisplay:="zurück"
End Sub


Leider habe ich keine Ahnung wie ich auslesen kann von welcher Tabelle aus verlinkt wurde. "ActiveCell.Address" funktioniert nicht, da bei FollowHyperlink die aktive Zelle bereits die Zielzelle ist.
Vielen Dank für Eure Hilfe
Matthias

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink "zurück"
15.01.2009 16:17:00
Josef
Hallo Matthias,
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Tabelle3" Then
        Sheets("Tabelle3").Range("A1").Hyperlinks(1).SubAddress = Sh.Name & "!A1"
    End If
End Sub

die Zelladresse des "Zurück" - Links musst du anpassen.
Gruß Sepp

Anzeige
AW: Hyperlink "zurück"
15.01.2009 16:52:50
Luschi
Hallo Matthias,
hier mal ein Beispiel: https://www.herber.de/bbs/user/58437.xls
Die Hyperlinks in Tabelle1 zeigen auf sich selbst, d.h., der Hyperlink zeigt auf die Zelle, in der der Hyperlink plaziert ist: der Rest passiert per Vba.
Die 'zurück'-Hyperlinks in Tabebelle2 und Tabelle3 werten die Variableninhalte von 'tb' und 'zl' aus.
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Hyperlink "zurück"
16.01.2009 11:45:10
Matthias
Hallo,
Mit Hilfe eines Kollegen konnte ich dieses Problem nun lösen und möchte die Lösung Euch auch zur Verfügung stellen.

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim usp As String 'Addresse von urpsrünglicher Zelle
Dim az As String
az = ActiveCell.Address
ActiveSheet.Range("C1").Select
usp = Target.Parent.Worksheet.Name & "!" & Cells(Target.Parent.Row, Target.Parent.Column). _
Address
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=usp, TextToDisplay:="zurü _
ck"
ActiveSheet.Range(az).Select
End Sub


Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Dynamische Hyperlinks in Excel erstellen


Schritt-für-Schritt-Anleitung

Um einen dynamischen „Zurück“-Hyperlink in Excel zu erstellen, kannst du den folgenden VBA-Code verwenden. Dieser Code passt den Zielort des Hyperlinks abhängig von der Tabelle an, von der der Link stammt.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Wähle im Projektfenster die Arbeitsmappe aus, in der du arbeiten möchtest.
  3. Gehe zu DieseArbeitsmappe und füge den folgenden Code ein:
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name <> "Tabelle3" Then
        Sheets("Tabelle3").Range("A1").Hyperlinks(1).SubAddress = Sh.Name & "!A1"
    End If
End Sub
  1. Gehe zu Tabelle3 und füge den folgenden Code ein:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Dim usp As String 'Addresse von ursprünglicher Zelle
    Dim az As String
    az = ActiveCell.Address
    ActiveSheet.Range("C1").Select
    usp = Target.Parent.Worksheet.Name & "!" & Cells(Target.Parent.Row, Target.Parent.Column).Address
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=usp, TextToDisplay:="zurück"
    ActiveSheet.Range(az).Select
End Sub
  1. Schließe den VBA-Editor und teste die Hyperlinks in deinem Excel-Dokument.

Häufige Fehler und Lösungen

  • Fehler: Hyperlink funktioniert nicht.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und dass die Tabellenblätter die richtigen Namen haben.
  • Fehler: Rück-Link zeigt auf die falsche Zelle.

    • Lösung: Überprüfe die SubAddress und stelle sicher, dass sie korrekt auf die Zielzelle verweist.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du auch manuelle Hyperlinks erstellen:

  1. Wähle die Zelle aus, die den „Zurück“-Link enthalten soll.
  2. Klicke mit der rechten Maustaste und wähle „Hyperlink“.
  3. Wähle „Aktuelles Dokument“ und wähle die entsprechende Tabelle und Zelle aus.

Diese Methode ist jedoch nicht dynamisch und muss manuell angepasst werden, wenn sich die Tabellenstruktur ändert.


Praktische Beispiele

Beispiel 1: Du hast eine Tabelle1 und eine Tabelle2, die beide auf Tabelle3 verlinken. Der „Zurück“-Link in Tabelle3 sollte dann jeweils auf Tabelle1 oder Tabelle2 zeigen.

Beispiel 2: Du möchtest in Tabelle3 den Rück-Link auf die Zelle A1 der Tabelle zeigen, von der der Link kam. Mit dem obigen VBA-Code kannst du dies automatisch steuern.


Tipps für Profis

  • Experimentiere mit verschiedenen Zielzellen für die Hyperlinks, um die Benutzerfreundlichkeit zu verbessern.
  • Nutze If-Anweisungen, um spezifische Bedingungen zu definieren, wann der Hyperlink aktualisiert werden soll.
  • Halte deine VBA-Codes sauber und gut dokumentiert, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Frage: Kann ich diesen Code auch in Excel für Mac verwenden?
Antwort: Ja, die grundlegende VBA-Programmierung funktioniert auch auf Excel für Mac, jedoch können einige Funktionen unterschiedlich sein.

2. Frage: Was mache ich, wenn ich den VBA-Editor nicht öffnen kann?
Antwort: Überprüfe, ob deine Excel-Version Makros unterstützt und ob sie aktiviert sind. Du kannst die Einstellungen unter „Datei“ > „Optionen“ > „Trust Center“ überprüfen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige