Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink mit Makro erstellen.

Hyperlink mit Makro erstellen.
25.11.2006 09:49:59
Wolfgang
Guten Morgen,
vielleicht kann mir jemand helfen bei der Erstellung eines Makros.
Das Makro sollte automatisch einen Hyperlink erstellt.
Das ganze sollte so funktionieren.
Nehme den Wert der in Spalte A in Tabelle 2 (irgend eine Zeile) steht, Zum Beispiel 50 und erstelle automatisch einen Hyperlink auf Spalte E Zeile 50 (Tabelle 2) der dann auf Tabelle 3 Spalte A 50 verweist.
Siehe anhängende Datei.
https://www.herber.de/bbs/user/38494.xls
Vielen Dank und schönes Wochenende
Wolfgang
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink mit Makro erstellen.
25.11.2006 11:21:48
ramses
Hallo
Das Makro in ein VBA-Modul deiner Mappe kopieren
Anschliessend unter "Extras - Makros" das Makro auswählen, "Optionen" wählen und einen Shortcut zuweisen, z.B. "y"
Option Explicit

Sub CreateHL()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"Tabelle3!A" & Cells(ActiveCell.Row, 1), TextToDisplay:="H"
End Sub

Danach kannst du die Zelle in "H" auswählen, "Ctrl"+"y" betätigen,... fertig.
Gruss Rainer
Anzeige
AW: Hyperlink mit Makro erstellen.
25.11.2006 12:23:25
Wolfgang
Hallo Rainer,
recht herzlichen Dank.
ES funktioniert Tolllll....
Ich hab da noch ein Problem und hatte dies schon eingestellt, aber ich habe mich so dumm ausgedrückt das die Experten, und das verstehe ich voll und ganz, dann nicht mehr geantwortet haben.
Wäre schön wenn Du es Dir einmal ansehen könntest.
Ich probiere es einfach noch einmal.
Wie gesagt recht herzlichen Dank
Wolfgang
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Infobox / Tutorial

Hyperlink mit Makro erstellen in Excel


Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Neues Modul hinzufügen:

    • Klicke mit der rechten Maustaste auf „VBAProject (deinDokument.xlsx)“ und wähle Einfügen > Modul.
  3. Makro schreiben:

    • Füge den folgenden Code in das Modul ein:
    Sub CreateHL()
       ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
       "Tabelle3!A" & Cells(ActiveCell.Row, 1), TextToDisplay:="H"
    End Sub
  4. Makro ausführen:

    • Wähle die Zelle, in der der Hyperlink erstellt werden soll, und drücke Ctrl + y, um das Makro auszuführen.
  5. Shortcut zuweisen (optional):

    • Gehe zu „Extras“ > „Makros“, wähle dein Makro aus, klicke auf „Optionen“ und weise einen Shortcut zu.

Häufige Fehler und Lösungen

  • Fehler: „Das Makro kann nicht ausgeführt werden.“

    • Lösung: Überprüfe, ob die Makros in deiner Excel-Datei aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter und aktiviere die Makros.
  • Fehler: „Hyperlink wird nicht erstellt.“

    • Lösung: Stelle sicher, dass die Zelle, in der der Hyperlink erstellt werden soll, ausgewählt ist, bevor du das Makro ausführst.

Alternative Methoden

Falls du keinen VBA-Code verwenden möchtest, kannst du auch manuell Hyperlinks in Excel erstellen:

  1. Hyperlink manuell erstellen:

    • Klicke mit der rechten Maustaste auf die Zelle, wähle Hyperlink und gib die Zieladresse oder den Zellbezug ein.
  2. Excel automatisch Link erstellen:

    • Wenn du einen Text eingibst, der wie eine URL aussieht (z.B. „www.example.com“), wird Excel diesen automatisch in einen Hyperlink umwandeln.

Praktische Beispiele

  • Beispiel 1: Erstelle einen Hyperlink zu einer externen Webseite:

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.example.com", TextToDisplay:="Beispiel Link"
  • Beispiel 2: Hyperlink in eine andere Excel-Datei:

    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Pfad\zur\Datei.xlsx", TextToDisplay:="Öffne Datei"

Tipps für Profis

  • Makros für Excel erstellen: Überlege, mehrere Hyperlinks in einer Schleife zu erstellen, um Zeit zu sparen:

    Sub MultipleLinks()
       Dim i As Integer
       For i = 1 To 10
           ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="Tabelle3!A" & i, TextToDisplay:="Link zu Zeile " & i
       Next i
    End Sub
  • Fehlerbehebung: Nutze Debug.Print in deinem Makro, um den Status während der Ausführung zu verfolgen.


FAQ: Häufige Fragen

1. Wie kann ich ein Makro zum Erstellen eines Hyperlinks in einer anderen Excel-Version verwenden?

  • Der Code funktioniert in den meisten modernen Excel-Versionen, solange du den VBA-Editor öffnen kannst.

2. Kann ich Hyperlinks zu externen Webseiten direkt in Excel einfügen?

  • Ja, du kannst Hyperlinks zu externen Webseiten sowohl manuell als auch über VBA einfügen. Nutze dafür die Address-Eigenschaft im VBA-Code.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige