Excel og hyperlinker

[knut20]

Hei

 

Jeg har masse hyperlinker i et Excel ark som består av selve hyperlinken og beskrivelsen i samme celle. Eksempel:

 

Startsiden

 

Jeg ønsker via en funksjon eller lignende å skille hyperlinken og beskrivelsen slik at de blir stående i to celler:

 

"http://www.startsiden.no" i celle 1 og "Startsiden" i celle 2

 

Kan selvfølgelig gå inn å gjøre det manuellt, men antall linker er så mye at jeg ville helst skillt dem ved en automatisk funksjon.

 

Noen som aner hvordan

 

På forhånd takk fra Knut

Endret 14. april 2005 av knut20

[kjeklulf]

Hvis det hele tiden er samme tegn mellom lenken og beskrivelsen kan du bruke Data -> Tekst til kolonner.

[knut20]

Hvis det hele tiden er samme tegn mellom lenken og beskrivelsen kan du bruke Data -> Tekst til kolonner.

Takk for svar

 

Jeg fikk ikke helt det til å virke. Skal prøve å forklare problemet litt anderledes.

 

Hvis en står i Excel og trykker knappen insert hyperlink og legger inn en "Address" (http://www.startsiden.no) og en "Text to display" (Startsiden) så får du vist beskrivelsen i cellen og linken ligger bak.

 

Jeg ønsker å gå mottsatt vei der jeg med utgangspunkt i eksemplet over der jeg ender opp med http://www.startsiden.no i celle 1 og Startsiden i celle 2.

 

Mvh

Knut

Endret 14. april 2005 av knut20

[knut20]

Hvis det hele tiden er samme tegn mellom lenken og beskrivelsen kan du bruke Data -> Tekst til kolonner.

Takk for svar

 

Jeg fikk ikke helt det til å virke. Skal prøve å forklare problemet litt anderledes.

 

Hvis en står i Excel og trykker knappen insert hyperlink og legger inn en "Address" (http://www.startsiden.no) og en "Text to display" (Startsiden) så får du vist beskrivelsen i cellen og linken ligger bak.

 

Jeg ønsker å gå mottsatt vei der jeg med utgangspunkt i eksemplet over der jeg ender opp med http://www.startsiden.no i celle 1 og Startsiden i celle 2.

 

Mvh

Knut

Fant svaret selv. Her er det til dere som måtte være interesserte:

 

Option Explicit

Sub testme()

 

Dim myHyperlink As Hyperlink

Dim wks As Worksheet

 

Set wks = ActiveSheet

 

For Each myHyperlink In wks.Hyperlinks

myHyperlink.Parent.Value = myHyperlink.Address

Next myHyperlink

 

End Sub

 

Mvh

Knut

[kjeklulf]

Grrr.... akkurat da jeg hadde funnet en som liknet...