Hyperlink via Textbox VBA

[Kevinw01]

je kunt een makkelijk .vbs script maken
met een paar commado''s

is dat zo? En hoe gaat dat in zijn werk?

 

[Warme bakkertje]

'-- Invoer Button
Private Sub CommandButton1_Click()
'-- Invoeren van de textboxen.
    sq = Naam.Text & "|" & Achternaam.Text & "|" & Afdeling.Text & "|" & Onderwerp.Text & "|" & DatumAanvraag.Text & "|" & _
    DatumEind.Text & "|" & Doel.Text & "|" & Opdracht.Text & "|" & ComboBox1.Value
    With Sheets(2).[A65536].End(xlUp)
    .Offset(1) = Application.WorksheetFunction.Max(Sheets("Adhoc-Data").Range("A:A")) + 1
    .Offset(1, 1).Resize(, 9) = Split(sq, "|")
    .Hyperlinks.Add .Offset(1, 10), Bestandslocatie.Text, , , Bestandslocatie.Text
End With
'-- Aanroepen van de code voor het leegmaken van de textboxen.
    Call LeegTextBox
End Sub

 

[Kevinw01]

Rudi,

PERFECT Het werkt en het was eigenlijk nog maar een kleine aanpassing. Volgende keer stuur ik gelijk een voorbeeldocument mee

In ieder geval super bedankt!!! :thumb: