Hallo zusammen,
ich habe folgendes Makro gefunden
Sub MehrereHyperlinksStarten()
'Startet per Klick auf ein Autoform alle URLs der Spalte A :
Dim lngZeile As Long
For lngZeile = 1 To Cells(Rows.Count, 1).End(xlUp).Row
ActiveWorkbook.FollowHyperlink "http://" & Replace(Cells(lngZeile, 1), "http://", "")
Next
End Sub
Jetzt wäre es super, wenn jeder Link nacheinander im gleichen Tab geöffnet wird und nicht für jede URL ein eigener Tab geöffnet wird. Hat zufällig jemand eine Idee wie das geht?
Vielen Dank schon mal für eure Mühe
Gruss
Alex
|