Velden met tekst en hyperlink veranderen in alleen hyperlink

[Paulus1969]

Ik heb een groot excel bestand met 10.000 links.

In kolom A heb ik woorden staan die een hyperlink bevatten. Klik ik op het woord in kolom A dan ga ik naar de URL in de hyperlink. Ik zou nu graag in kolom B de URL zichtbaar willen maken, zodat je de URL ziet ipv de beschrijving.

Als ik kolom A copieer en als tekst plak dan krijg ik alleen het woord in kolom B en is de hyperlink verdwenen. Weet iemand een manier om alleen de hyperlink te kopieren?

 

[Wigi]

Doe eens een voorbeeldbestandje aub.

Je zegt bvb. niet of het linken zijn met de HYPERLINK functie, of via Invoegen > Hyperlink.

Wigi

 

[Paulus1969]

Het zijn linken die er niet met een functie inzitten. De velden zijn gekopieerd uit internet explorer en geplakt in excel. Bij dit knippen plakken zijn zowel de beschrijving als de hyperlink meegenomen.

 

[Wigi]

Doe eens een voorbeeldbestandje aub.

²

 

[Paulus1969]

²

Sorry, niet gezien.

 

[Wigi]

Een nieuwe functie in VBA:

Function HyperlinkTextWeergave(Cel As Range)
  On Error GoTo GeenHyperlink
  
  If Cel.Count = 1 Then
    HyperlinkTextWeergave = Cel.Hyperlinks(1).Name
    Exit Function
  Else
    MsgBox "Je hebt meer dan 1 cel geselecteerd", vbOKOnly, "Cel Selectie fout"
  End If
  
GeenHyperlink:
  HyperlinkTextWeergave = ""
End Function

Plak dit in VBA in een module, en dan kan je in je bestand bvb. gebruiken:

=HyperlinkTextWeergave(A1)

en doortrekken naar beneden.

Wigi

 

[Paulus1969]

Bedankt voor je hulp.
Ik ga nu kijken of ik het aan de praat krijg. Ik heb namelijk nog nooit met VBA gewerkt.
Dat is een macro? In 2003 moet ik dus bij Extra > Macro > Visual Basic Editor gaan zoeken/spelen?

 

[Warme bakkertje]

Neen, dit is een functie.
ALT-F11 >> Invoegen >> Module >> Functie Plakken

Mvg

Rudi

 

[Paulus1969]

Thanks, het werkt!!!!

 

[Wigi]

Thanks, het werkt!!!!

Graag gedaan. Kan je de vraag nog even op opgelost zetten aub?