Mehrere Hyperlinks gleichzeitig öffnen
25.10.2016 10:31:57
Rico
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