Excel: een kolom met hyperlinks omzetten zodat alleen de links worden weergegeven

Kort antwoord: je kunt dit niet automatiseren zonder VBA.

Handleiding

Dit is op een Windows 7 computer; vervang gewoon de sneltoetsen door hun overeenkomstige Mac tegenhangers.

1. Markeer een cel met een hyperlink.
2. Druk op CTRL+K. Hiermee open je het dialoogvenster met de hyperlinks (zie afbeelding hieronder). Als het geopend is, staat de cursor al in het veld Adres.
3. Druk op CTRL+A om de hele URL te markeren.
4. Druk op CTRL+C om het te kopiëren.
5. Druk op ESC of Enter om het Hyperlink-dialoogvenster te sluiten.
6. Plak de URL ergens via CTRL + V.

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

VBA

Hier is een VBA-oplossing voor degenen die dat kunnen gebruiken.

Maak een VBA-module met de volgende code:

=GetURL(A1)

Om te gebruiken, voer je het volgende in een willekeurige cel in:

waarbij A1 een hyperlink bevat.

De functie aan het werk:

Dit klinkt misschien als een brute kracht methode, maar het is de beste manier die ik heb gevonden. (Ik ontdekte deze pagina toen ik een uur geleden zelf met dezelfde vraag zat… je zou de hele dag kunnen zoeken, maar soms is het gewoon makkelijker om het te doen en er klaar mee te zijn).

1) Kopieer en plak alleen de cellen met de hyperlinks in een nieuwe spreadsheet.

2) Exporteer de spreadsheet, klik op “Wijzig bestandstype”, selecteer “Opslaan als een ander bestandstype” en sla het op als een webpagina (ook wel een HTML-bestand).

3) Open de webpagina in je browser en bekijk de bron.

4) Kopieer en plak de bron in een tekstverwerker.

5) Verwijder met de functie Zoeken/Vervangen van de teksteditor de voorlopende en achterlopende tekst van elke hyperlink. (Met andere woorden, vervang de tekst door niets: “”) Merk op dat deze tekst identiek moet zijn voor elke hyperlink.

6) U zou nu een tekstbestand moeten hebben met niets anders dan hyperlinks. Kopieer en plak waar nodig terug in je oorspronkelijke spreadsheet of gebruik het hoe/waar je maar wilt.

Bewerkt om aan te geven dat je kunt exporteren naar een apart bestand dat HTM is. Sluit het bestand en open het opnieuw in Excel en het zal het probleem oplossen. De =Hyperlink formule is weg en de links zijn omgezet in gewone links. Deze methode bespaarde me uren en was doodsimpel en ik hoefde me niet bezig te houden met scripts of formules of VBA of Macro’s.

Ik gebruik een mac en dit werkte voor mij: markeer de kolom die u wilt converteren, open “Hyperlink” in het menu Invoegen. Verwijder alle tekst die in het vak Weergave verschijnt. Het zal zeggen “[meerdere cellen geselecteerd]” als uw displaytekst verschillend is tussen cellen. Zodra u op OK klikt, verschijnen alleen de links op uw werkblad. Als u afzonderlijke cellen moet converteren in plaats van een hele kolom, markeert u alle cellen die u moet converteren, klikt u met de rechtermuisknop, selecteert u “Hyperlink bewerken” en volgt u dezelfde stappen om de tekst in het vak Weergave te verwijderen.

Ik ben er zeker van dat het mogelijk is met VBA, maar in de tussentijd, klik met de rechtermuisknop, H, en kopieer en plak het adres in het scherm weer te geven vak

In de jaren nadat deze vraag werd gesteld heeft Excel de =GetURL(cell) functie toegevoegd zodat je dit kunt doen zonder je eigen VBA te laten vallen.