Lav en celle om til hjemmeside link

Du kunne vel kigge på noget ala:

https://www.extendoffice.com/documents/excel/4354-excel-click-on-cell-to-run-macro.html

Og så erstatte mymacro med denne kode:

https://www.mrexcel.com/forum/excel-questions/548585-visual-basic-applications-code-open-url.html

Det skal selvfølgelig mixes sammen, men burde være muligt.

Tak for input, jeg er dog ikke en ørn til Excel, så jeg håber dete r ok at jeg spørger.

Er det sådan koden skal se ud, jeg synes ikke det virker ?

Option Explicit

Public Sub NavigateToURL(ByVal argURL As String)

  Const READYSTATE_COMPLETE As Integer = 4

  Dim objIE As Object
 
  Set objIE = CreateObject("InternetExplorer.Application")

  With objIE
    .Visible = False
    .Silent = True
    .Navigate argURL
    Do Until .ReadyState = READYSTATE_COMPLETE
      DoEvents
    Loop
  End With

  objIE.Quit
  Set objIE = Nothing
 
End Sub


Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D4")) Is Nothing Then
            Call NavigateToURL("http://www.domaene.dk/shop/search-1.html?keyword=")
        End If
    End If

Jeg er ikke stærk i VBA, men du mangler at få .value/text ud af det felt som klikkes på.