Formel for å trekke URL ut av celle

Funktionen hedder =Hyperlink(url,navn) istedet

Saa du kan give linket et nyt navn ved:
= Hyperlink(A3,"Nyt Link")
eller beholde det gamle
= Hyperlink(A3)

Hyperlink(A3) prøver å opprette en lenke til "Arts: Literature: World Literature: British: Shakespeare: Works: Plays: Tragedies: Macbeth" hvilket ikke er en gyldig URL.

Jeg er ute etter den inverse funksjonen: Jeg vil at B3 skal inneholde teksten "http://dmoz.org/Arts/Literature/World_Literature/British/Shakespeare/Works/Plays/Tragedies/Macbeth/", ikke noen hyperlink. Eller, i værste fall, en hyperlenke der både kædeplacering og celleindhold er lik URL'en.

Prøv med
=TEKST(B3;)

Eller kopier B3 og vælg "Indsæt speciel" og vælg "Værdier"

Jeg ved ikke lige hvordan det blev til B3 i stedet for A3, men jeg håber du forstår.

ok =text(a3,"") skulle virke saa

hov - jeg var lidt sent paa den der :-)

overchord -> Sådan går det jo nogen gange, men du mås også være lidt langsom, for jeg hører normalt ikke til dem, der kommer først :0)

Men det virker jo ikke,
=TEKST(A7;"")
returnerer "Reference: Time: Current Time", som er tekseten i lenken, ikke URL'en.

hva med noget i den her stil?

Function HyperLinkText(pRange As Range) As String

Dim ST1 As String
Dim ST2 As String

If pRange.Hyperlinks.Count = 0 Then
  Exit Function
End If

ST1 = pRange.Hyperlinks(1).Address
ST2 = pRange.Hyperlinks(1).SubAddress

If ST2 <> "" Then
  ST1 = "[" & ST1 & "]" & ST2
End If

HyperLinkText = ST1

End Function

janegil -> hos mig returnerer det faktisk url'er, så jeg ved ikke lige hvorfor den ikke virker hos dig.

Ok, nu forstår jeg, hvad du mener (Jeg er lidt langsom, men sådan er det, nå man kommer op i årene!)

Den simple udgave af hiks' forslag vil være at oprette en funktion, der blor returnerer URL'en:

Function URL(celle As Range) As String
    URL = celle.Hyperlinks(1).Address
End Function

Mere kompliceret behøver det ikke være.

En funksjon med én kode linje.

Så burde det vært enda enklere; jeg burde kunne sette
=Hyperlinks(1).Address
i cellen.

Men så enkelt er det ikke.

Det fungerer nå ! (Men ikke i landsbank.fo/test/url.xls fordi jeg har FTP-problemer i kveld.)

Jeg skal ha et svar fra sjap, selv om løsningen 'bare' er en forenklet versjon av hiks' kode.

ok :0)

Men glem nu ikke hiks. Han kom trods alt først med det forslag, der virker ;-)