carloschouw
Gebruiker
- Lid geworden
- 15 jun 2015
- Berichten
- 225
Goedenavond!
Ik heb vraag over een userform die ik gebruik waarmee ik de functie .VLookup gebruik. Alles werkt prima (alle textboxen, checkboxen,.. worden netjes ingevuld in de Userform) echter wanneer ik een hyperlink in mijn excelsheet heb staan krijg ik geen hyperlink retour in mijn userform maar de link retour als tekst.
Code:
.TextBox1 is bijvoorbeeld de hyperlink in de Excel sheet. Bij .VLookup moet hier dus de hyperlink retourkomen waar men op kan klikken i.v.m. de tekst te knippen - plakken.
Is zoiets dergelijks mogelijk?
Groet, Carlo
Ik heb vraag over een userform die ik gebruik waarmee ik de functie .VLookup gebruik. Alles werkt prima (alle textboxen, checkboxen,.. worden netjes ingevuld in de Userform) echter wanneer ik een hyperlink in mijn excelsheet heb staan krijg ik geen hyperlink retour in mijn userform maar de link retour als tekst.
Code:
Code:
Private Sub CommandButton1_Click()
If WorksheetFunction.CountIf(Blad1.Range("A:A"), Me.TextBox3.Value) = 0 Then
MsgBox "Onbekend nummer"
Me.TextBox3.Value = ""
Exit Sub
End If
If Trim(Me.TextBox3.Value) = "" Then
Me.TextBox3.SetFocus
MsgBox "Nummer invoeren"
Exit Sub
End If
With Me
.TextBox1 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox3), Blad1.Range("Lookup"), 3, 0)
.TextBox2 = Application.WorksheetFunction.VLookup(CLng(Me.TextBox3), Blad1.Range("Lookup"), 2, 0)
End With
MsgBox "Gegevens opgehaald"
End Sub
.TextBox1 is bijvoorbeeld de hyperlink in de Excel sheet. Bij .VLookup moet hier dus de hyperlink retourkomen waar men op kan klikken i.v.m. de tekst te knippen - plakken.
Is zoiets dergelijks mogelijk?
Groet, Carlo