silentbooster
Semiprofi
Hallo,
ich stehe vor dem Problem, dass ich sehr viele Links gleichzeitig in einem browser (erst mal egal ob IE, FF,...) öffnen möchte.
Die Links sind z.B.
"http://www.Bilder.de/01.jpg"
"http://www.Bilder.de/02.jpg"
...
Diese habe ich bereits in einer Excelliste zusammengefasst, jedoch bekomme ich es nicht hin das ich mit einem klick alle Links gleichzeitig öffnen kann und diese in einem Browserfenster zu sehen.
Im Netz habe ich folgendes gefunden:
füge im Tabellenblatt z.B. ein Autoform ein und weise ihm per Rechtsklick folgendes Makro zu (das Makro muss im VBA-Editor im Modul "DieseArbeitsmappe" stehen !) :
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
Nur wie hinterlege ich dies?
ich stehe vor dem Problem, dass ich sehr viele Links gleichzeitig in einem browser (erst mal egal ob IE, FF,...) öffnen möchte.
Die Links sind z.B.
"http://www.Bilder.de/01.jpg"
"http://www.Bilder.de/02.jpg"
...
Diese habe ich bereits in einer Excelliste zusammengefasst, jedoch bekomme ich es nicht hin das ich mit einem klick alle Links gleichzeitig öffnen kann und diese in einem Browserfenster zu sehen.
Im Netz habe ich folgendes gefunden:
füge im Tabellenblatt z.B. ein Autoform ein und weise ihm per Rechtsklick folgendes Makro zu (das Makro muss im VBA-Editor im Modul "DieseArbeitsmappe" stehen !) :
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
Nur wie hinterlege ich dies?