Hyperlink met vba

[Lemsky]

Beste,

Ik wil met vba in exel een hyperlink aanmaken in een geselecteerde cel. Dit met behulp van een inputbox. Bij een input van 060000 zou er een link gegenereerd moeten worden met het volgende adres I:\Test\testwrk\run\060000\0600000001P01.PDF En als naam 060000. Dit dan weer kunnen herhalen met een ander input nummer.

Alvast bedankt,

Riens

 

[HSV]

Ervan uitgaande dat 060000 de mapnaam is en het bestand 0600000001P01.PDF daar aanwezig is.

Sub hsv()Dim Ib
 Ib = InputBox("geef het nummer op:")
 If Ib <> "" Then ActiveSheet.Hyperlinks.Add ActiveCell, "I:\Test\testwrk\run\" & Ib & "\0600000001P01.PDF", "", , Ib
End Sub

 

[Lemsky]

Bedankt.

Harry bedankt.

Ben hier erg blij mee.

Ook de snelle reactie super.

Heb er zelf totaal geen kennis van.

Maar het werkt.

Groet,

Riens