Schleife für Hyperlink öffnen?
05.03.2007 12:07:50
lobby007
ich möchte per Makro immer alle gelisteten Hyperlinks öffnen:
Range("A1:A7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
==> da öffnet er nur den letzten Hyperlink aber nicht mehrere
Sub Makro2()
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
==> da öffnet er nur den letzten Hyperlink aber nicht mehrere
Sub Makro2()
Range("A1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A2").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A4").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub
Jetzt werden die Hyperlinks 1-4 geöffnet aber das muß doch auch einfacher gehen, vor allem müßte ich immer erweitern wenn mal was dazukommt.
Ich würde den Bereich A1:A7 auch einfach "Hyperlink" nennen und dann kann man den Bereich erweitern.
Preisfrage: wie kann man das in einer Schleife lösen?
Gruß lobby007
Anzeige