Aktivieren einer Liste von URLs in einer Excel-Spalte

Question

Ich habe über 1700 Buchtiteldatensätze in einer Excel-Datei. Jeder dieser über 1700 Datensätze enthält ein referenziertes Coverbild, und diese Coverbilder sind nach einem Teil der ISBN-Nummer des Titels benannt (z. B. 3-539-4.jpg). Alle diese Coverbilder müssen visuell mit ihren Titeldatensätzen verglichen werden, um eine korrekte Übereinstimmung zu gewährleisten.

Ich habe mir als Verfahren ausgedacht, die lokale URL in einer Spalte neben der Titelspalte zu platzieren. Wenn ich auf jede URL klicke, wird das Bild in meiner Vorschau-App geöffnet, sodass überprüft werden kann, ob der Titel des Titelbilds mit dem Titel in der angrenzenden Zelle übereinstimmt. Ich habe die lokalen URLs in der Spalte, brauche aber eine Abkürzung, um sie alle zu aktivieren, anstatt jede einzeln in der Funktion „Hyperlink einfügen“ festzulegen (was ungefähr 1,5 Sekunden dauern würde).

Gibt es ein Makro oder VBA-Modul, mit dem ich dies für die gesamte URL-Spalte erreichen kann?

Unten sehen Sie ein Bild von dem, was ich begonnen habe. Es zeigt das erste Element aktiv.

Answer 1

For each myCell in Range("A1:A1700")
    ActiveSheet.Hyperlinks.Add myCell, Address:=MyCell.Value
Next myCell

Passen Sie den tatsächlichen Bereich an, in dem sich Ihre Links befinden.

Sie sollten sich auch darüber im Klaren sein, dass es keine Validierung für den Link gibt, sodass eine Zelle, die „Zufälliger Text“ enthält, auf „Zufälliger Text“ verweist, unabhängig davon, ob es sich um einen gültigen Link handelt oder nicht.