Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("1")
ws.Activate
ws.Shapes("Text Box " & Mid(Target.Name, 10)).TopLeftCell.Activate
End Sub
Textfeld erstellen: Öffne Excel und gehe zu dem Arbeitsblatt, in dem du ein Textfeld hinzufügen möchtest. Klicke auf "Einfügen" und wähle "Textfeld".
VBA-Editor öffnen: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Code hinzufügen: Füge den folgenden Code in das Modul ein:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("1")
ws.Activate
ws.Shapes("Text Box " & Mid(Target.Name, 10)).TopLeftCell.Activate
End SubHyperlink erstellen: Gehe zurück zu deinem Arbeitsblatt, klicke mit der rechten Maustaste auf die Zelle, wo du den Hyperlink erstellen möchtest, und wähle "Hyperlink". Gib die URL oder den Verweis auf das Textfeld in der anderen Tabelle ein.
Testen: Klicke auf den Hyperlink, um sicherzustellen, dass er das entsprechende Textfeld aktiviert.
Hyperlink funktioniert nicht: Überprüfe, ob der Name des Textfeldes im Code genau mit dem Namen des Textfeldes in Excel übereinstimmt. Achte auch darauf, dass das Zielblatt existiert.
Textfeld nicht sichtbar: Wenn das Textfeld außerhalb des sichtbaren Bereichs liegt, kannst du es mit der TopLeftCell.Activate-Methode aktivieren. Stelle sicher, dass das Textfeld im Arbeitsblatt vorhanden ist.
Eine andere Methode besteht darin, Links zu Zellreferenzen zu erstellen, anstatt direkt auf Textfelder zu verweisen. Dies kann einfacher sein, wenn du eine große Anzahl von Links hast.
Erstelle einen Hyperlink, der auf eine bestimmte Zelle verweist, z.B. =HYPERLINK("#'Blattname'!A1", "Link zu A1").
Verwende die Funktion HYPERLINK im Excel-Blatt, um Links zu erstellen, die auf die Zellen in einem anderen Blatt zeigen.
Beispiel 1: Angenommen, du hast ein Textfeld mit dem Namen "Text Box 1" und möchtest einen Link in Zelle A1 erstellen, der auf dieses Textfeld verweist. Setze den Hyperlink wie oben beschrieben.
Beispiel 2: Wenn du mehrere Textfelder hast, kannst du eine Schleife im VBA verwenden, um mehrere Hyperlinks dynamisch zu generieren.
Namenskonventionen: Achte darauf, dass du konsistente Namen für deine Textfelder verwendest, um Verwirrung zu vermeiden.
Fehlerbehebung: Wenn dein Hyperlink nicht funktioniert, überprüfe die VBA-Syntax und stelle sicher, dass das Zielblatt aktiv ist.
Benutzerdefinierte Formate: Du kannst das Aussehen deines Textfeldes anpassen, um es ansprechender zu gestalten, indem du Farben und Schriftarten änderst.
1. Frage
Wie kann ich mehrere Hyperlinks auf verschiedene Textfelder erstellen?
Du kannst für jedes Textfeld einen eigenen Hyperlink erstellen und den VBA-Code entsprechend anpassen.
2. Frage
Gibt es eine Möglichkeit, die Hyperlinks ohne VBA zu erstellen?
Ja, du kannst die HYPERLINK-Funktion verwenden, um auf Zellen zu verlinken, aber das direkte Verlinken auf Textfelder erfordert VBA.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen