Link til "indsæt hyperlink" i en celle

Jeg tvivler på du can lave det med link, men man kan garanteret lave det med en knap og lidt VBA kode...

Jeg er åben for forslag :)

Må jeg spørge hvad formålet er heltpræcist, for hvis du skal have lavet noget VBA kode alligevel, og det er noget copy/paste f.eks. så kan de være det kan laves smartere.

Selvfølgelig :)!

Brugerne indtaster poster via en formular, og her kan de indsætte et link til en fil - i hvert post. Altså en række = en post, har et link. Hvis de IKKE indtaster et link, når de opretter posten, skal de kunne finde posten i en liste senere og tilføje et link. Og det havde jeg tænkt ville være nemmest, hvis det blot stod, under kolonnen "Link til dokumentation": "Tilføj link" - hvilket så åbnede hyperlink dialogboksen.

Kan godt være jeg misforstår :)

Brugerne skal selv finde deres post og indsætte linket?

hvis man indsætter et link (internetadresse), så bliver det normalt blåt og virker som et link, så snart med har indsat det, og trykket enter (hvis man har gjort det ved at aktivere cellen først evt. ved F2)

Ellers kan du gøre det, at du laver en celle (A1), hvor du gør plads til at brugerne kan indtaste linket, også der hvor linket skal være (B1) der har du følgende formel:

=hyperlink(A1;A1)

eller hvis du vil have noget tekst til at stå istedet for selve linket:

=hyperlink(A1;"Link til dokumentation")

Hep,

Undskyld jeg først svarer tilbage nu!

Jeg er ikke så meget for den med en celle til at taste et link. Jeg forestiller mig i stedet, at man klikker på en knap, hvor man så retter hele "posten". Og jeg har fundet en kodebid, hvor man kan finde en fil at linke til fra en formular. Så jeg tror jeg lukker denne her - og siger tak for dine forslag, newbieatphp!

Lukkes

Ellers kunne du bruge dette:

Sub indsaetLink()
    Dim i As Integer
    Dim nytLink As String
    i = ActiveCell.Row
    nytLink = InputBox("Indsæt dit link:", "Indsættelse af link til tidligere indtastet post", "")
    If Not nytLink = "" Then
        ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i), Address:=nytLink _
        ',TextToDisplay:="Link til dokumentation"
    End If
End Sub


Der indsætter den linket i den række man står i under kolonne C, hvis det skal være i en anden kolonne, så ændres det blot i denne:
ActiveSheet.Hyperlinks.Add Anchor:=Range("C" & i),

Thanx man - den lægger jeg i min "kodebase" ;)