Gewählte Hyperlinks gleichzeitig öffnen

Forumthread: Gewählte Hyperlinks gleichzeitig öffnen

05.05.2021 23:35:56

Kisska

Hallo zusammen,
ich einer Spalte habe ich Hyperlinks erzeugt mit folgender Formel:


=HYPERLINK("https://adresseTeil1="&[@[Nr]]&"adresseTeil2";"Link")

Nun möchte mit mittels vba ausgewählte Zellen mit Links mit Internet Explorer öffnen.
Ich habe diesen Code gefunden:


Sub OpenHyperLinks()
'Update 20141124
Dim xHyperlink As Hyperlink
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each xHyperlink In WorkRng.Hyperlinks
xHyperlink.Follow
Next
End Sub

Quelle:


https://www.extendoffice.com/documents/excel/2328-excel-open-multiple-hyperlinks.html

Leider funktioniert der Code nicht bei meinen generierten Hyperlinks. Es funktioniert nur, wenn die Links direkt in den Zellen stehen.
Könnt ihr helfen, den Code anzupassen?
Viele Grüße
Kisska

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Gewählte Hyperlinks gleichzeitig öffnen

08.05.2021 12:10:24

Anton

Gewählte Hyperlinks gleichzeitig öffnen

08.05.2021 12:10:24

Anton

Hallo Kisska,
wen ich dich richtig verstanden habe, dann so?:


Sub OpenHyperLinks()
Dim zelle As Range, WorkRng As Range
Dim adresse As String
On Error Resume Next
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Bereich auswählen:", , WorkRng.Address, Type:=8)
For Each zelle In WorkRng.Cells
If Left(zelle.Formula, 10) = "=HYPERLINK" Then
adresse = Split(Replace(zelle.Formula, "=HYPERLINK", ""), ",")(0)
adresse = Replace(Replace(Replace(adresse, Chr(34), ""), ")", ""), "(", "")
ActiveWorkbook.FollowHyperlink Address:=adresse
End If
Next
End Sub

mfg Anton

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um mehrere Links gleichzeitig in Excel zu öffnen, kannst Du VBA verwenden. Folge diesen Schritten:

Hyperlinks erstellen: In einer Zelle kannst Du Hyperlinks mit der Formel =HYPERLINK("URL";"Linktext") erstellen. Beispiel:
```
=HYPERLINK("https://adresseTeil1="&[@[Nr]]&"adresseTeil2";"Link")
```
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul hinzufügen: Klicke auf Einfügen und wähle Modul.

VBA-Code einfügen: Kopiere den folgenden Code in das Modul:

Sub OpenHyperLinks()
   Dim zelle As Range, WorkRng As Range
   Dim adresse As String
   On Error Resume Next
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Bereich auswählen:", , WorkRng.Address, Type:=8)
   For Each zelle In WorkRng.Cells
       If Left(zelle.Formula, 10) = "=HYPERLINK" Then
           adresse = Split(Replace(zelle.Formula, "=HYPERLINK", ""), ",")(0)
           adresse = Replace(Replace(Replace(adresse, Chr(34), ""), ")", ""), "(", "")
           ActiveWorkbook.FollowHyperlink Address:=adresse
       End If
   Next
End Sub

Makro ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Wähle die Zellen mit den Hyperlinks aus und führe das Makro über Entwicklertools > Makros aus.

Häufige Fehler und Lösungen

Fehler: Makro funktioniert nicht.
Lösung: Stelle sicher, dass die Zellen Hyperlinks korrekt erstellt sind. Der Code funktioniert nur mit Hyperlink-Formeln, nicht mit reinen URLs.
Fehler: Links werden nicht geöffnet.
Lösung: Überprüfe, ob die Hyperlink-Formel korrekt ist. Achte darauf, dass sie das richtige Format hat.

Alternative Methoden

Wenn Du keine VBA-Lösungen verwenden möchtest, gibt es auch andere Methoden:

Link in einer Zelle: Du kannst mehrere Links in einer Zelle erstellen, indem Du den Text der Hyperlinks veränderst, allerdings ist das Öffnen mehrerer Links gleichzeitig nicht möglich, wenn sie in einer Zelle sind.
Hyperlinks manuell öffnen: Eine einfache, aber zeitaufwendige Methode besteht darin, jeden Link einzeln zu klicken.

Praktische Beispiele

Zwei Links in einer Excel-Zelle: Du kannst in einer Zelle zwei Links erstellen, indem Du den Text bearbeitest. Allerdings kannst Du diese Links nicht gleichzeitig öffnen.
Öffnen mehrerer Links: Mit dem oben genannten VBA-Skript kannst Du mehrere Links schnell öffnen, indem Du einen Zellbereich auswählst, in dem sich die Hyperlinks befinden.

Tipps für Profis

Optimierung der Hyperlink-Formeln: Nutze Variablen in deiner Hyperlink-Formel, um dynamische Links zu erstellen. Das erleichtert die Verwaltung von Links.
Sicherung der Arbeitsmappe: Bevor Du VBA-Skripte ausführst, erstelle immer eine Sicherungskopie Deiner Arbeitsmappe, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Links in einer Zelle erstellen?
Du kannst mehrere Links in einer Zelle erstellen, indem Du die Funktion HYPERLINK mehrmals verwendest, jedoch kannst Du sie nicht gleichzeitig öffnen.

2. Funktioniert das Makro in allen Excel-Versionen?
Das Makro sollte in den meisten modernen Excel-Versionen funktionieren, insbesondere in Excel 2010 und später. Stelle sicher, dass Makros in Deinen Excel-Einstellungen aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Gewählte Hyperlinks gleichzeitig öffnen

Forumthread: Gewählte Hyperlinks gleichzeitig öffnen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Gewählte Hyperlinks gleichzeitig öffnen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread