Note: The other languages of the website are Google-translated. Back to English

Hoe kopieer ik een hyperlink alleen van de ene cel naar de andere in Excel?

Stel dat ik een lijst met waarden heb in kolom A en elke cel bevat een andere hyperlink, nu wil ik alleen de hyperlinks zonder tekst naar een andere kolom E kopiëren, zoals in het volgende screenshot wordt getoond. Misschien is er geen directe manier om deze taak in Excel op te lossen, maar hier kan ik een VBA-code introduceren om ermee om te gaan.

doc kopieer hyperlink naar een andere cel 1

Kopieer een hyperlink van de ene cel naar de andere met VBA-code


pijl blauw rechts bel Kopieer een hyperlink van de ene cel naar de andere met VBA-code

Om alleen de hyperlinkadressen zonder de tekst naar andere cellen te kopiëren, kan de volgende code u een plezier doen, alstublieft als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: kopieer de hyperlink alleen van de ene cel naar de andere:

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3. En druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren de cellen te selecteren waarvan u alleen de hyperlinks wilt kopiëren, zie screenshot:

doc kopieer hyperlink naar een andere cel 02

4. En klik vervolgens op OK, selecteer vervolgens de cellen waarvan u de hyperlins alleen in een ander dialoogvenster wilt plakken, zie screenshot:

doc kopieer hyperlink naar een andere cel 03

5. En de hyperlinkadressen zijn gekopieerd van de originele cellen naar de opgegeven cellen zoals je nodig hebt, zie screenshot:

doc kopieer hyperlink naar een andere cel 04

Opmerking:: Deze code kan u ook helpen om de hyperlinks van het ene blad naar het andere blad te kopiëren zoals u wilt.


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant

 

Comments (13)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hallo, wat als ik mijn hyperlink van blad A cel A5 naar blad B cel A5 wil kopiëren?
Arpit
Deze opmerking is gemaakt door de moderator op de site
Hallo, Arpit:

Ik heb de VBA-code bijgewerkt, nu kunt u deze naar behoefte in twee werkbladen toepassen. Probeer het alsjeblieft, ik hoop dat het je kan helpen!
skyyang
Deze opmerking is gemaakt door de moderator op de site
Ik wil koppelingen in verschillende bladen van het ene bestand naar een ander bestand kopiëren
jprasad
Deze opmerking is gemaakt door de moderator op de site
hallo.. wat als ik de hyperlink wil kopiëren via vlookup? ik heb de formule al, maar wanneer ik op de hyperlink klik, verschijnt "kan gespecificeerd bestand niet openen".

Help me alstublieft
eunice
Deze opmerking is gemaakt door de moderator op de site
Werkt niet
Vreemdeling passeren
Deze opmerking is gemaakt door de moderator op de site
Hou ervan. Heel erg bedankt.
Liefs uit de Dominicaanse Republiek :)
Liz Melbin Tejada
Deze opmerking is gemaakt door de moderator op de site
Werkt niet
iii
Deze opmerking is gemaakt door de moderator op de site
Laten we zeggen dat in uw cel A1 een hyperlink is, dus om het pad van de hyperlink te krijgen, maakt u gewoon een formule zoals hieronder:
&gt;&gt; (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) &lt;&lt;
LeZa
Deze opmerking is gemaakt door de moderator op de site
Dit werkte bij mij ook niet.
Abbie
Deze opmerking is gemaakt door de moderator op de site
Dit is geweldig en het werkt. Ik hou ervan om de code van anderen te kopiëren en plakken :D
Pawel
Deze opmerking is gemaakt door de moderator op de site
Werkt niet voor mij; maakt het uit dat ik nog steeds Excel 2007 gebruik?
Gary
Deze opmerking is gemaakt door de moderator op de site
OK, dus je zult mijn commentaar niet publiceren - wat eerlijk is. Maar als je wilt dat ik me registreer en inlog, dan moet je me oplossingen laten zien die werken, want (op basis van een niet-werkend exemplaar) heb ik niets gezien dat me ervan kan overtuigen dat registreren enige waarde heeft.
Gary
Deze opmerking is gemaakt door de moderator op de site
Ik heb de volgende bewerkingen aangebracht om te werken voor mijn use-case:
Sub Kopie Hyperlinks()
'Uodateby' Extendoffice
Dim xSRg als bereik
Dim xDRg als bereik
Dim ik als geheel getal
Dim xAdres als string
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Selecteer het originele bereik dat u wilt kopiëren hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
Als xSRg niets is, sluit dan Sub af
Set xDRg = Application.InputBox("Selecteer het nieuwe bereik waarvan u alleen de hyperlinks wilt plakken", "KuTools For Excel", , , , , , 8)
Als xDRg niets is, sluit dan Sub af
Stel xDRg = xDRg(1) in
Voor I = 1 Tot xSRg.Count
If xSRg(I).Hyperlinks(1).Address <> "" Of xSRg(I).Hyperlinks(1).SubAddress <> "" Dan
Als xSRg(I).Hyperlinks.Aantal = 1 Dan
xDRg(I).Hyperlinks.Anker toevoegen:=xDRg(I), _
Adres:=xSRg(I).Hyperlinks(1).Adres, _
Subadres:=xSRg(I).Hyperlinks(1).Subadres
'ScreenTip:=xSRg(I).Hyperlinks(1).ScreenTip, _
'TextToDisplay:=xSRg(I).Hyperlinks(1).TextToDisplay
End If
End If
volgende
Einde sub
wleeb
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties