m.b.v een knop rechtstreeks naar website

[jong.braster]

Ik ben al mijn knoppen in mijn werkblad aan het vervangen. Aan een knop van een formulier is direct een hyperlink te verbinden naar een internetsite.
Aan een knop van "werkset besturingselementen" lukt mij dat niet.

De programmacode luidt alsvolgt:
Private Sub CommandButton6_Click()

End Sub

welke tekst ontbreekt ? Via een macro kan ik de tekst ook niet ontdekken.

 

[Guidolavespa]

Website

Plaats een label op de knop en doe:


Private Sub lblWeb_Click()
link = "http://....../....."
On Error GoTo NoCanDo
ActiveWorkbook.FollowHyperlink Address:=link, NewWindow:=True
Unload Me
Exit Sub
NoCanDo:
MsgBox "Cannot open " & link
End Sub

 

[jong.braster]

Precies wat ik zocht. Werkt uitstekend.

Bedankt, en misschien tot het volgende probleem ?