Hyperlinks öffnen
18.01.2009 13:09:00
Chris
ich benutze in einer Mappe folgendes Makro, welches die Hyperlinks in Spalte D öffnet.
Sub OpenHyps()
Dim row As Long
For row = 1 To Cells.SpecialCells(xlCellTypeLastCell).row
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
Nun sind es leider inzwischen so viele Links geworden, dass Excel beim Ausführen abstürzt. Kann _
_
man dies irgendwie erweitern, dass vorher abgefragt wird, welche Hyperlinks geöffnet werden _
sollen, dass ich z.B. die Zahlen 1 und 100 eingebe und dann die Hyperlinks von D1 bis D100 geöffnet werden?
Danke für eure Mühe
Gruß
Chris
Anzeige