Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Hyperlink öffnen

Forumthread: VBA: Hyperlink öffnen

VBA: Hyperlink öffnen
25.07.2018 19:18:59
Bernd
Halo zusammen,
brauche mal eure Hilfe.
Ich lasse in UF-Listbox die Spalte einer Tabelle einlesen. Es handelt sich um Spalte 2 der Tabelle "Dateiliste". Die Spalte 2 besteht aus Hyperlinks.
Ich schaffe es leider nicht, wenn ich den ListBoxeintrag anklicke, das sich der dem ensprechende Hyperlink öffnet.
Kann mir jemand dabei helfen?
Userbild
Office Version 2016 Pro 32bit - Windows10 Pro 64 bit
"Wenn du jemanden ohne Lächeln triffst, schenke ihm dein's!"
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Hyperlink öffnen - Nachtrag Code
25.07.2018 19:29:30
Bernd 

Private Sub UserForm_Initialize()
Dim wksBlatt As Worksheet
Dim i As Integer
Dim lngLZeile As Long
Set wksBlatt = ActiveSheet
lngLZeile = wksBlatt.Cells(Rows.Count, 2).End(xlUp).Row
ListBox1.Clear
For i = 1 To lngLZeile
frm_Dateimanager.ListBox1.AddItem wksBlatt.Cells(i + 1, 2).Value
Next i
End Sub
Sub Hyperlinks_erzeugen()
Dim z As Long
For z = 1 To 1000
With Sheets("Dateiliste")
On Error Resume Next
.Hyperlinks.Add .Cells(z + 1, 2), .Cells(z + 1, 1).Value
End With
Next
End Sub

Anzeige
AW: VBA: Hyperlink öffnen - Nachtrag Code
25.07.2018 19:53:53
Nepumuk
Hallo Bernd,
kannst du bitte eine Beispielmappe mit ein paar Daten hochladen?
Gruß
Nepumuk
AW: VBA: Hyperlink öffnen - Nachtrag Code
25.07.2018 20:16:13
Bernd
Hallo Nepumuk,
gerne, hier ist sie: https://www.herber.de/bbs/user/122896.xlsm
Lieben Gruß aus dem sonnigen Bremen
Bernd
Anzeige
AW: VBA: Hyperlink öffnen - Nachtrag Code
25.07.2018 20:42:52
Nepumuk
Hallo Bernd,
teste mal:
Private Sub ListBox1_Click()
    ThisWorkbook.FollowHyperlink Address:= _
        Worksheets("Dateiliste").Cells(ListBox1.ListIndex + 2, 1).Value, NewWindow:=True
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA: Hyperlink öffnen - Nachtrag Code
26.07.2018 11:07:35
Bernd
Hallo mein Bester,
passt wie immer!
Schön, dass du wieder Zeit für's Forum hast.
Sonnige Grüße aus Bremen
Bernd
PS. Bleib mir wohl gesonnen, gelle!
;

Forumthreads zu verwandten Themen

Makro ändern - Links öffnen
Chris

Hallo alle zusammen,
könnt ihr mir helfen folgendes Makro abzuändern? In der Art, dass nur Links geöffnet werden, die ungleich dem Link in der Zeile zuvor sind? auch wenn ich z.B. als Start zeile 100 eingebe, dass die Zeile 100 trotzdem außen vorgelassen wird, wenn Zelle D99 identisch mit...
12.09.2009 14:52:20
Thread-ID: 1102219
15 Beiträge
Hilfe zu F2 im VBA Editor z.b xlCellTypeVisible
chris

Hallo VBA Experten,
bitte heute um Hilfe.ich schaue mir gerade die Funktion xlCellTypeVisible an.
Da bin ich dann auf die F2 im VBA Editor gekommen und von da aus komme ich ja im VBA Editor in eine andere Ansicht.
Könnte mir das jemand erklären an einem oder vielleicht mehreren Beis...
17.09.2009 12:55:31
Thread-ID: 1103528
4 Beiträge
Anzeige
per VBA wie Hyperlink autom. zum Tabellenblat
Julia

Hallo alle zusammen,
ich hoffe irgendjemand von euch kann mir weiterhelfen, denn ich komme auf keine gescheite Lösung:
Voraussetzungen:
ich habe auf Tabellenblatt "Tabelle1" in Zelle C1: z.B. "A" stehen in Zelle C2: z.B."B" stehen, in Zelle C3: z.B. "C" stehen.
Dabei sind "A"...
27.06.2017 09:14:07
Thread-ID: 1565968
5 Beiträge
makro bei Klick auf Hyperlink öffnen
Benedikt

Hallo,
in einer Tabelle habe ich einen Hyperlink eingebaut. der sich auf die selbe Spalte bezieht, in der er steht. diese habe ich mit einem Namen belegt NewUser
in die Seite habe ich folgende Prozedur reingeschrieben:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink...
31.03.2019 11:15:10
Thread-ID: 1684269
3 Beiträge
Hyperlink aus Excelzelle öffnen
Heinz
Hallo zusammen,
ich habe eine kurze Frage.
Wenn ich eine E-Mail Adresse als Hyperlink in einer Excel Zelle habe
und die anklicke öffnet sich die Windows Mail App.
Kann ich irgendwo einstellen das sich Outlook öffnet?
Gruß
Heinz
21.10.2021 12:04:13
Thread-ID: 1852889
2 Beiträge
VBA Hyperlinkname aus Zellen
Pierre
Hallo zusammen,
ich stehe gewaltig auf der Leitung bei folgender Sache:
Ich habe eine Datei, in der ich in Spalte I einen Hyperlink hinterlegen lasse.
Mit folgender Zeile wird der Dateiname zusammengebaut:
NameABD = Dir("Pfad\" & "ABD MRN " & _ ThisWorkbook.Sheets(1).Range("...
24.08.2022 15:45:25
Thread-ID: 1895874
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Hyperlink in Excel VBA öffnen

Schritt-für-Schritt-Anleitung

  1. Erstelle ein UserForm: Öffne Excel und füge ein neues UserForm hinzu. Platziere eine ListBox auf dem Form.

  2. Fülle die ListBox: Verwende den folgenden VBA-Code, um die ListBox mit Hyperlinks aus einer Tabelle zu füllen:

    Private Sub UserForm_Initialize()
   Dim wksBlatt As Worksheet
   Dim i As Integer
   Dim lngLZeile As Long
   Set wksBlatt = ActiveSheet
   lngLZeile = wksBlatt.Cells(Rows.Count, 2).End(xlUp).Row
   ListBox1.Clear
   For i = 1 To lngLZeile
       frm_Dateimanager.ListBox1.AddItem wksBlatt.Cells(i + 1, 2).Value
   Next i
End Sub

  3. Hyperlink beim Klick öffnen: Füge den folgenden Code in das UserForm ein, um den entsprechenden Hyperlink zu öffnen, wenn auf einen ListBox-Eintrag geklickt wird:

    Private Sub ListBox1_Click()
   ThisWorkbook.FollowHyperlink Address:= _
       Worksheets("Dateiliste").Cells(ListBox1.ListIndex + 2, 1).Value, NewWindow:=True
End Sub

Häufige Fehler und Lösungen

  • Fehler: Hyperlink wird nicht geöffnet: Stelle sicher, dass die Zellen in der Spalte korrekt formatiert sind und tatsächlich Hyperlinks enthalten.
  • Fehler: ListBox bleibt leer: Überprüfe, ob die Tabelle "Dateiliste" existiert und Daten in der richtigen Spalte vorhanden sind.
  • Fehler: Der Code funktioniert nicht: Achte darauf, dass der Code im richtigen Modul (UserForm) steht.

Alternative Methoden

  • VBA URL öffnen: Du kannst auch direkt eine URL in einem Excel-Makro öffnen, ohne eine ListBox zu verwenden:

    Sub URL_oeffnen()
   Dim url As String
   url = "https://www.example.com"
   ThisWorkbook.FollowHyperlink Address:=url, NewWindow:=True
End Sub

  • Access VBA Hyperlink öffnen: Der Code für Access ähnelt dem von Excel, allerdings musst Du sicherstellen, dass Du auf die richtigen Objekte zugreifst.

Praktische Beispiele

  • Hyperlinks aus einer Tabelle: Erstelle eine Tabelle mit einer Spalte für die Linkbeschriftungen und einer weiteren für die URLs. Der oben gezeigte Code kann diese Links in einer ListBox anzeigen und beim Klicken öffnen.
  • Excel VBA Link aktivieren: Wenn Du ein Excel-Dokument mit Links erstellst, kannst Du den Hyperlink direkt aus einer Zelle öffnen. Verwende hierfür den FollowHyperlink Befehl.

Tipps für Profis

  • Verwende On Error Resume Next: Wenn Du mit Hyperlinks arbeitest, kann es nützlich sein, Fehler zu ignorieren, um zu verhindern, dass Dein Makro bei einem fehlgeschlagenen Link stoppt.
  • Prüfe auf leere Zellen: Vor dem Öffnen eines Hyperlinks solltest Du sicherstellen, dass die Zelle nicht leer ist, um Laufzeitfehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie öffne ich einen Hyperlink aus einer Zelle in VBA?
Du kannst den Befehl FollowHyperlink verwenden, um einen Link direkt aus einer Zelle zu öffnen, wie im Beispiel gezeigt.

2. Was ist der Unterschied zwischen FollowHyperlink und ActiveSheet.Hyperlinks?
FollowHyperlink öffnet den Link direkt, während ActiveSheet.Hyperlinks oft verwendet wird, um auf die Eigenschaften eines Hyperlinks zuzugreifen, ohne ihn sofort zu öffnen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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