Mehrere Hyperlinks gleichzeitig öffnen

Hallo und guten Tag zusammen!
Ich suche eine Möglichkeit, mehrere Hyperlinks mit einmal zu öffnen.
In einer Datei befinden sich in einem Arbeitsblatt in Spalte A mehrere Hyperlinks untereinander.
Im Forum habe ich schon etwas gefunden, sogar mit Abfrage (hier für die Spalte D):

Sub OpenHyps()
Dim row As Long
Dim Start As Long
Dim Ende As Long
Start = InputBox("In welcher Zeile starten?", "START")
Ende = InputBox("In welcher Zeile enden?", "ENDE")
For row = Start To Ende
If Cells(row, 4).Hyperlinks.Count = 1 Then
Application.DisplayAlerts = False
ActiveWorkbook.FollowHyperlink Address:=Cells(row, 4), NewWindow:=True
Application.DisplayAlerts = True
End If
Next
End Sub

Leider funktioniert das bei mir nicht. Es kommt die Meldung:
Laufzeitfehler -2147221014 (80040 1ea) Die angegebene Datei konnte nicht geöffnet werden.

Was mache ich falsch?
Vielleicht gibt es auch eine Möglichkeit, die Abfrage blockweise zu gestalten (Von Zeile 4 bis 7, von Zeile 9 bis 12, usw.), da die Hyperlinks bzw. deren Positionen feststehen.
Kann mir bitte jemand weiterhelfen? Ich bedanke mich im Voraus!
Rico

Hallo
es sind exceldateien, im Link.
nach dem Öffnen der Ersten ist diese die aktuelle Datei und das erste Blatt auch das aktive Blatt.
Da du im Makro kein Blatt referenziert hast, sucht excel auf dem dann Aktiven nach weiteren links und findet keine Weiteren.
So sollte es gehen...

Sub OpenHyps()

    Dim row As Long
    Dim Start As Long
    Dim Ende As Long
    Dim TB
    
    Start = InputBox("In welcher Zeile starten?", "START")
    Ende = InputBox("In welcher Zeile enden?", "ENDE")
    
    Application.DisplayAlerts = False
    For row = Start To Ende
        Select Case row
            Case 4 To 7, 9 To 12
                If TB.Cells(row, 4).Hyperlinks.Count = 1 Then
                    TB.Cells(row, 4).Hyperlinks(1).Follow NewWindow:=True
                End If
            Case Else
                'mache nichts 
        End Select
    Next
    Application.DisplayAlerts = True
End Sub

LG UweD

Mehrere Hyperlinks gleichzeitig öffnen

Forumthread: Mehrere Hyperlinks gleichzeitig öffnen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial