Namen des angezeigten Hyperlinks anpassen in Excel
Schritt-für-Schritt-Anleitung
Um den Namen eines angezeigten Hyperlinks in Excel anzupassen, kannst du das folgende VBA-Makro verwenden. Dieses Beispiel geht davon aus, dass du mit Excel 2016 oder neuer arbeitest.
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Kopiere und füge den folgenden Code in das Modul ein:
Option Explicit
Sub hyperlinkEinfuegen()
Dim uebergangK As String
uebergangK = 9000
ActiveSheet.Range("O3").Value = Sheets(uebergangK).Name
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("O3"), _
Address:="", _
SubAddress:=Sheets(uebergangK).Range("A3").Address(True, True, , True), _
TextToDisplay:=Sheets(uebergangK).Name
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Führe das Makro aus, um den Hyperlink mit dem gewünschten Namen zu erstellen.
Häufige Fehler und Lösungen
Alternative Methoden
Eine weitere Möglichkeit, den angezeigten Namen des Hyperlinks zu ändern, besteht darin, ihn direkt in die Zelle zu schreiben, bevor du den Link hinzufügst:
Sub hyperlinkEinfuegen()
Dim uebergangK As Long
uebergangK = 9000
ActiveSheet.Range("O3").Value = Sheets(uebergangK).Name
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("O3"), _
Address:="", _
SubAddress:=Sheets(uebergangK).Range("A3").Address(True, True, , True)
End Sub
Hier wird zuerst der Name des Blatts in die Zelle O3 geschrieben, bevor der Hyperlink erstellt wird.
Praktische Beispiele
Wenn dein Ziel ein anderes Tabellenblatt ist, kannst du uebergangK ändern, um auf das gewünschte Blatt zu verlinken. Hier sind einige Beispiele:
-
Ziel: Tabellenblatt mit der Nummer 1
Ändere uebergangK einfach zu 1:
uebergangK = 1
-
Ziel: Tabellenblatt mit der Nummer 2 und Text anpassen
Du kannst auch den Text des Hyperlinks anpassen, indem du TextToDisplay änderst:
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Range("O3"), _
Address:="", _
SubAddress:=Sheets(uebergangK).Range("A3").Address(True, True, , True), _
TextToDisplay:="Mein Zielblatt"
Tipps für Profis
- Nutze
Option Explicit am Anfang deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Das hilft, Fehler zu vermeiden.
- Verwende aussagekräftige Namen für deine Variablen, um den Code leichter verständlich zu machen.
- Experimentiere mit der Formatierung der Zelle, um den Hyperlink hervorzuheben, z.B. durch die Anwendung von Fettdruck oder einer anderen Schriftfarbe.
FAQ: Häufige Fragen
1. Wie kann ich mehrere Hyperlinks gleichzeitig einfügen?
Du kannst eine Schleife verwenden, um mehrere Hyperlinks in einer Reihe oder Spalte einzufügen. Beispiel:
For i = 1 To 10
ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), _
Address:="", _
SubAddress:=Sheets(i).Range("A1").Address(True, True, , True), _
TextToDisplay:=Sheets(i).Name
Next i
2. Kann ich Hyperlinks in einer Formel verwenden?
Ja, du kannst Hyperlinks in Formeln verwenden, indem du die Funktion HYPERLINK in Excel nutzt. Beispiel:
=HYPERLINK("#'Blatt1'!A1", "Gehe zu Blatt1")
Mit diesen Informationen solltest du in der Lage sein, die Namen deiner Hyperlinks in Excel effektiv anzupassen und zu verwalten.