[Excel] Splitsen van cellen met Hyperlink

[Alientrader]

Ik kom er niet uit met zoeken in google. Zeer frustrerend.

Ik heb een kolom cellen met 5000 webadressen en tekst ineen. Ofwel in de cel is de tekst blauw met streep eronder, en als je er op klik dan gaat het naar een webadres.

Ik zou graag de tekst en de URL loskoppelen van elkaar, ofwel in kolom A de URL en in kolom B de tekst,

Hoe doe ik dit?

[Jester-NL]

Is het tekst EN een hyperlink, of is de tekst een hyperlink die je als platte tekst en als hyperlink wilt hebben in verschillende cellen.
Inhet tweede geval zou ik de hele kolom kopieren en vervolgens plakken of invoegen en vervolgens (in de celeigenschappen) de hyperlink eruit slopen.

[Reptile209]

Kom je er mee weg om te splitsen op de eerste spatie (na de URL)? Of heb je ook URL's met spaties erin? Zoek op de eerste spatie en splits je cellinhoud daar in tweeën.

Als alternatief staat hier nog het een en ander om URL's te parsen. Tot slot: [google=vba cell extract url] .

edit:
Ah, zoals Jester-NL het zegt, kan het natuurlijk ook nog. Hoe zit het precies in elkaar (post eens een voorbeeldje!

[ Voor 15% gewijzigd door Reptile209 op 15-03-2010 12:50 ]

[Alientrader]

zoeken naar vba cell extract url.... thanks Reptile en jester

Als je niet weet waar je naar moeten zoeken danvindt je het nooit

vb script

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

[ Voor 35% gewijzigd door Alientrader op 15-03-2010 13:30 ]