Listbox selectie in Userform in actieve cel plakken als hyperlink.

[samabert]

Forumleden,

Alle PDF bestanden uit een folder worden zichtbaar bij het openen van de Userform.
Via een keuze (enkel klik) uit de Listbox, kan ik deze keuze in de actieve cel plakken.
Tot hier werkt alles.

Mijn vraag:
Als ik een bestand aanklik in de Listbox, dat het plakken in de actieve cel direct als hyperlink wordt weergegeven. Dit om achteraf documenten op te roepen die bij bepaalde noties horen.


In de bijlage heb ik geprobeerd om het verder uit te leggen.

Alvast bedankt.

Marc

 

[SjonR]

Probeer deze eens Marc:

Private Sub CommandButton1_Click()
 C00 = "C:\Scan\"
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) Then
            ActiveCell.Hyperlinks.Add ActiveCell, C00 & ListBox1.Value & ".pdf", , , C00 & ListBox1.Value & ".pdf"
            Exit Sub
        End If
    Next I
End Sub

 

[samabert]

SjonR,

Werkt perfect! :thumb:

Bedankt voor de hulp.
Marc