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