merci
ActiveSheet.Hyperlinks.Add Anchor:=cells(zeile,spalte), Address:="http://"+ipadresse$, TextToDisplay:=anzeigetext$
Die Variablen zeile, spalte, ipadresse$ und anzeigetext$ musst Du natürlich beim Durchlaufen der Adressen entsprechend befüllen.
Greets,
Harry
for x=1 to 200:ActiveSheet.Hyperlinks.Add Anchor:=cells(x,1), Address:="http://"+cells(x,1), TextToDisplay:=cells(x,1):next
Gehe mit ALT+F11 ins Visual Basic, drücke STRG+G um das Direktfenster aufzurufen und füge dann diese obige Zeile ein. Nach einem Druck auf Enter sollte das erledigt sein...
Greets,
Harry
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen