Sub set_wiki_links()

ZEILEN_OFFSET = 5

For i = 1 To 200
    w = i + ZEILEN_OFFSET
    hyperlink_blau = ActiveWorkbook.Worksheets("blatt_M").Range("E" & w).Value
    If hyperlink_blau = "" Then
    
    Else
    Range("E" & w).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        hyperlink_blau, SubAddress:="home", TextToDisplay:=hyperlink_blau
    End If
Next i

Range("A1").Select
End Sub



cable_sizing_tool