hyperlink maken van cel inhoud naar folder

[nout]

hallo,

ik graag met vba een programma dat hyperlink maakt als volgt:
Hij leest de inhoud van cel A1 en maakt een hyperlink naar een folder welke dezelfde naam heeft dan de inhoudt van de cel. Nu heb ik een programma gemaakt maar deze werkt niet, kan iemand mij helpen.

Bij voorbaat dank,

nout

Sub hyperlink()

Dim naam As String
Dim pad As String
Dim rijloper As Long

Application.ScreenUpdating = False

Set rijbereik = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
aantalrijen = rijbereik.Rows.Count

rijloper = 1
eindlooprij = rijloper + aantalrijen

Do Until rijloper = eindlooprij

     naam = Cells(rijloper, 1).Value ' leest de waarde van de invoercel in
    pad = "D:\test\"
    nieuwpad = pad + naam + "\"
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="nieuwpad"
    
rijloper = rijloper + 1
Loop
       
Application.ScreenUpdating = True

  
End Sub

 

[Emil S]

wellicht help deze code:

Sub HyperlinkMappenToevoegen()
Dim C As Range
Dim sTmp As String
    
    'alle cellen in kolom A
    For Each C In Columns(1).SpecialCells(xlCellTypeConstants)
        With C
            'toevoegen als de map bestaat
            sTmp = Dir(.Value, vbDirectory)
            If sTmp <> "" Then .Hyperlinks.Add Anchor:=C, Address:=C
        End With
    Next
    
End Sub

 

[nout]

bedankt voor de reactie, ik heb het zelf ook op kunnen lossen. Wanneer ik deze opstart doet de macro het niet, moet ik eventueel een pad invullen?

BVD
nout

 

[Emil S]

oke. dan is je probleem opgelost.