Hyperlink zu Dateien basierend auf Zelleninhalt

Question

Ich muss Hyperlinks zu einer gesamten Spalte basierend auf dem Inhalt dieser Zelle einfügen. So

Range("A2").Select 
    Range(Selection, Selection.End(xlDown)).Select 
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ 
     "http://FILE LOCATION/" & "A2" 

wenn A2 0106-15-9562 enthält muss ich es

"http://FILE LOCATION/0106-15-9562" 

... Und so weiter unten die gesamte Spalte Hyperlink.

Answer 1

One way:

Dim cell As Range 

For Each cell In Range(Range("A2"), Range("A2").End(xlDown)) 
    ActiveSheet.Hyperlinks.Add cell, "http://example.com/" & cell.Value 
Next