Definition von VBA-Hyperlink

Der Hyperlink wird häufig bei Websites verwendet, um im Internet von einer Seite zu einer anderen oder von einer Website zu einer anderen zu navigieren. Auf ähnliche Weise können wir auch die Bewegungen innerhalb des Excel-Arbeitsblatts steuern. Die verschiedenen Vorgänge, die in Excel ausgeführt werden können, sind:

  • Verschieben an eine bestimmte Position in der aktuellen Arbeitsmappe.
  • Öffnen Sie verschiedene Dokumente und wählen Sie einen bestimmten Bereich innerhalb des Dokuments aus.
  • Navigieren zu Webseiten aus dem Arbeitsblatt.
  • E-Mail an eine definierte Adresse senden.

Der Hyperlink ist aufgrund seiner Farbänderung, meist in blau, leicht zu erkennen. Es gibt verschiedene Methoden, um einen Hyperlink in Excel zu erstellen und mit VBA zu erstellen.

Wie erstelle ich einen Hyperlink in Excel mit VBA-Code?

Sie können einen Hyperlink zu einem Text oder ein Blatt zu einem anderen Arbeitsblatt in Excel hinzufügen, indem Sie die Eigenschaft hyperlink add verwenden. Dem Format muss gefolgt werden, indem angegeben wird, wo der Hyperlink erstellt werden soll, und die Navigations-URL usw.

Format für VBA-Hyperlink hinzufügen

Das Format zeigt, welche Parameter angegeben werden müssen, um einem Arbeitsblatt einen Hyperlink hinzuzufügen.

  • Anker: Definiert die Zelle, in der Sie den Hyperlink erstellen möchten.
  • Adresse: Die URL, zu der die Navigation verschoben werden soll.
  • (SubAddress): Unteradresse der URL.
  • (QuickInfo): Der beim Platzieren eines Mauszeigers anzuzeigende Mauszeigerwert.
  • (Anzuzeigender Text): Der Text muss in der Zelle angezeigt werden.

Verwenden Sie die Eigenschaft Aktive Zelle, um einen Hyperlink hinzuzufügen.

Wählen Sie die Add-Methode aus der Liste

Beispiele zum Erstellen von Hyperlinks in Excel VBA

Im Folgenden finden Sie verschiedene Beispiele zum Erstellen von Hyperlinks in Excel mithilfe von VBA-Code.

Sie können diese VBA-Hyperlink-Excel-Vorlage hier herunterladen - VBA-Hyperlink-Excel-Vorlage

Beispiel 1 - Erstellen eines Hyperlinks vom Arbeitsblatt zu einer Website

Wir möchten einen Hyperlink vom Arbeitsblatt mit dem Namen sub zu einer Website mit VBA-Code in Excel erstellen.

Im Folgenden sind die Schritte zum Erstellen eines Hyperlinks in Excel VBA aufgeführt:

Schritt 1: Erstellen Sie eine Funktion mit dem Namen hyper, um den Hyperlink hinzuzufügen.

Code:

 Private Sub hyper () End Sub

Schritt 2: Verwenden Sie das Objekt Aktive Zelle, um die Methode zum Hinzufügen von Hyperlinks zu öffnen.

Code:

 Private Sub hyper () ActiveCell.Hyperlinks.Add (End Sub

Schritt 3: Geben Sie die Parameterwerte für die Hyperlink-Add-Methode an.

Code:

 Private Sub hyper () ActiveCell.Hyperlinks.Add Anchor: = Sheets ("sub"). Range ("A1"), Address: = "https://www.educba.com/", SubAddress: = "", ScreenTip : = "es ist ein Hyperlink", TextToDisplay: = "Excel Training" End Sub
  • Anker: Name des Arbeitsblatts
  • Adresse: Hyperlink zu der Stelle, an der das Steuerelement mit der angegebenen Website-Adresse navigiert werden soll
  • QuickInfo: Der Text des Mauszeigers
  • TextToDisplay: Welchem Text der Hyperlink zugeordnet werden soll

Schritt 4: Drücken Sie die Taste F5 oder Ausführen unter VBE, um diesen Code auszuführen und die Ausgabe anzuzeigen.

Der Zellbereich A1 wird ausgewählt und der Text mit einem Hyperlink versehen. Wenn Sie auf den Text „Excel Training“ klicken, wird er auf die Website https://www.educba.com/ weitergeleitet. Wenn Sie den Mauszeiger neben den Text bewegen, wird der Text des Mauszeigers angezeigt.

Beispiel # 2 - Hyperlink zum Verbinden von zwei Arbeitsblättern

Wir haben zwei Arbeitsblätter mit dem Namen Home und sub . Versuchen wir, mit VBA-Code einen Hyperlink von Sub zu Home zu erstellen.

Führen Sie die folgenden Schritte aus, um mithilfe des VBA-Codes einen Hyperlink von einem Arbeitsblatt zu einem anderen in derselben Arbeitsmappe zu erstellen.

Schritt 1: Erstellen Sie eine Funktion, in die wir alle Codes schreiben, um die Aktion auszuführen. Schreiben Sie Code, um das Arbeitsblatt 'sub' mit der Auswahlmethode des Arbeitsblatts auszuwählen.

Code:

 Private Sub hyper1 () Arbeitsblätter ("sub"). Wählen Sie End Sub

Da sich das Steuerelement innerhalb des Arbeitsblatts bewegt, muss das Arbeitsblatt ausgewählt werden, in dem Sie den Hyperlink erstellen.

Schritt 2: Wählen Sie den Zellbereich in dem Blatt aus, in dem der Hyperlink erstellt werden soll.

Code:

 Private Sub hyper1 () Arbeitsblätter ("sub"). Bereich auswählen ("A1"). End Sub auswählen

Schritt 3: Fügen Sie nun den Hyperlink mit der Eigenschaft active cell hinzu.

Code:

 Private Sub hyper1 () Arbeitsblätter ("sub"). Bereich auswählen ("A1"). ActiveCell.Hyperlinks.Add Anchor auswählen: = Auswahl, Adresse: = "", SubAddress: = "'Home'! A1", TextToDisplay: = "Zum Verschieben des Startblatts klicken" End Sub

Da das Arbeitsblatt bereits ausgewählt ist, wird Anchor als "Auswahl" angegeben. Der Hyperlink wird als "Home" -Blatt und Bereich A1 angegeben.

Schritt 4: Führen Sie den Code aus, und im Unterfenster wird der unten stehende Hyperlink angezeigt.

Schritt 5: Sobald Sie auf den Text geklickt haben, wird das Steuerelement auf die Startseite verschoben. Und Zelle A1 wird ausgewählt.

Beispiel # 3 - Hyperlink mit mehreren Arbeitsblättern

Wenn Sie einen Hyperlink über mehrere Arbeitsblätter erstellen möchten, ist dies ebenfalls möglich. In diesem Beispiel befinden sich mehrere Blätter in derselben Arbeitsmappe. Es gibt also verschiedene Arten von Excel-Funktionen aus dem Hauptarbeitsblatt 'Funktionen'. Versuchen wir, mit VBA-Code einen Hyperlink zu dem verschiedenen Arbeitsblatt mit den verschiedenen Funktionen zu erstellen:

Die mehreren Arbeitsblätter sind wie folgt mit verschiedenen Excel-Funktionsnamen benannt

Da wir einen Hyperlink zu jedem Arbeitsblatt erstellen möchten, ist es schwierig, den Code zu wiederholen. Führen Sie die folgenden Schritte aus, um einen Hyperlink mit VBA-Code in Excel zu erstellen:

Schritt 1: Erstellen Sie eine Variable, um mit dem Arbeitsblatt problemlos umgehen zu können.

Code:

 Private Sub hyper2 () Dim ws As Worksheet End Sub

Schritt 2: Nun wollen wir die Hauptseite auswählen, die als Indexseite fungiert, und den Zellbereich A1 auswählen.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Funktionen"). Bereich auswählen ("A1"). End Sub auswählen

Schritt 3: Um sich durch mehrere Arbeitsblätter und Hyperlinks zu bewegen, erstellen wir für jede Schleife eine. A1 ist bereits als aktive Zelle ausgewählt, sodass daraus ein Hyperlink erstellt wird.

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Funktionen"). Bereich auswählen ("A1"). Für jedes ws auswählen In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Next ws End Sub

Schritt 4: Geben Sie die Parameterwerte an, um einen Hyperlink für jedes Arbeitsblatt zu erstellen. Da der Hyperlink vom aktiven Zellenanker = Aktive Zelle ausgeht, wird die Adresse als "" angegeben .

Code:

 Private Sub hyper2 () Dim ws As Worksheet Worksheets ("Funktionen"). Bereich auswählen ("A1"). Für jedes ws auswählen In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "" Next ws End Sub

Schritt 5: Der Hyperlink wird durch das Arbeitsblatt geschleift, daher sollten wir die Unteradresse als Blattnamen angeben. Um die Blattnamen zu erhalten, können wir die Variable ws und den Zellbereich als A1 verwenden. Der Blattname wird mit einem einfachen Anführungszeichen angegeben. Blattname und -bereich werden angegeben und auch mit einem einfachen Anführungszeichen abgeschlossen.

Code:

 Private Sub hyper2 () Dim ws As Worksheet-Arbeitsblätter ("Funktionen"). Bereich auswählen ("A1"). Für jedes ws auswählen In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Next ws End Sub

Schritt 6: Um den Hyperlink mit dem Blattnamen zu erhalten, geben Sie TextToDisplay als ws.Name ein

Code:

 Private Sub hyper2 () Dim ws As Worksheet-Arbeitsblätter ("Funktionen"). Bereich auswählen ("A1"). Für jedes ws auswählen In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

In diesem Code wird ein Hyperlink für jedes Arbeitsblatt in derselben Zelle A1 gespeichert.

Schritt 7: Ändern Sie jedes Blatt um eine Zelle von der aktiven Zelle in eine andere Zelle.

Code:

 Private Sub hyper2 () Dim ws As Worksheet-Arbeitsblätter ("Funktionen"). Bereich auswählen ("A1"). Für jedes ws auswählen In ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0) .Wählen Sie Next ws End Sub

Schritt 8: Führen Sie das Programm aus, und jeder Blattname wird auf dem Blatt 'Funktionen' angezeigt. Wenn Sie darauf klicken, wechselt das Steuerelement zum entsprechenden Blatt.

Dinge, an die man sich erinnern sollte

  • Hyperlink-Eigenschaft der aktiven Zelle, die zum Erstellen von Hyperlinks in VBA verwendet wird.
  • Hyperlink-Hilfe zum einfachen Verschieben innerhalb der Arbeitsmappe.

Empfohlene Artikel

Dies ist eine Anleitung zu VBA-Hyperlinks. Hier erfahren Sie, wie Sie mit VBA-Code Hyperlinks in Arbeitsblättern erstellen, um schnell von einem Blatt zu einem anderen zu wechseln. Außerdem erhalten Sie einige praktische Beispiele und eine herunterladbare Excel-Vorlage. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. Einführung in VBA-Loops
  2. Entfernen Sie Hyperlinks in Excel
  3. VBA-Unterbrechung für Schleife
  4. Externe Links in Excel suchen

Kategorie:

VBA