Hoe webadressen extraheren in excel?

Stel dat u van uw collega een Excel-werkmap ontvangt waarin u een lijst met hyperlinks in één kolom heeft staan. Nu wilt u uit deze lijst alle hyperlink-URL’s extraheren.

De handmatige methode is een echte hoofdpijn, je moet elke URL één voor één kopiëren en plakken. De beste manier is dus om een UDF in VBA te maken . En vandaag wil ik een eenvoudige code voor deze UDF met u delen.

VBA-code om hyperlink-URL’s te extraheren

 Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function

Hoe deze code te gebruiken

Om deze UDF te gebruiken, moet u deze stappen volgen:

1. Open de Visual Basic Editor vanaf het tabblad Ontwikkelaars of gebruik de sneltoets ALT+F11.
2. Plaats een nieuwe module, plak de bovenstaande code erin en sluit deze.
3. Voer nu in uw spreadsheet de functie =GiveMeURL(A1) in en druk op Enter.