[Excel 2010 VBA] Inputbox maakt link CommandButton

[tijmen_4real]

Hoi,

Via de volgende VBA-code op een command-button wil ik een hyperlink laten specifiëren van een andere command-button:

Private Sub CommandButton3_Click()
    ArtikelLinkAdres = InputBox("Typ hieronder de link naar het artikel in:")
    MsgBox (ArtikelLinkAdres)
End Sub

Private Sub CommandButton2_Click()
    ActiveWorkbook.FollowHyperlink Address:=ArtikelLinkAdres
End Sub

De message-box geeft de link correct weer.
Maar de actie op CommandButton2 werkt niet: "Fout 5. Ongeldige procedure aanroep of ongeldig argument".
Ik heb het ook geprobeerd door ArtikelLinkAdres als globale variabele aan te maken, maar dit verbetert niets.

Wat is er mis? Hoe los ik het op??
Groet,

Tijmen

 

[SjonR]

Waarom dit met twee knoppen moet vraag ik me af, maar goed... probeer dit eens:

Public ArtikelLinkAdres As String

Private Sub CommandButton3_Click()
    ArtikelLinkAdres = InputBox("Typ hieronder de link naar het artikel in:")
End Sub
Sub CommandButton2_Click()
    ActiveWorkbook.FollowHyperlink (ArtikelLinkAdres)
End Sub

 

[tijmen_4real]

Dank je wel, maar toch een vreemde foutmelding:

 

[SjonR]

dan klopt je ingevulde adres niet. probeer het voor de gein eens met een website die je open hebt staan.

bijvoorbeeld met: https://www.nu.nl/

 

[VenA]

Waarom via een inputbox? Lijkt mij nogal een uitdaging om deze er zonder typefouten in te zetten: 'http://www.helpmij.nl/forum/showthread.php/932579-Excel-2010-VBA-Inputbox-maakt-link-CommandButton'