Makro ändern - Links öffnen
Chris
könnt ihr mir helfen folgendes Makro abzuändern? In der Art, dass nur Links geöffnet werden, die ungleich dem Link in der Zeile zuvor sind? auch wenn ich z.B. als Start zeile 100 eingebe, dass die Zeile 100 trotzdem außen vorgelassen wird, wenn Zelle D99 identisch mit Zelle D100 ist.
Vielen Dank
Gruß
Chris
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