Hoe vindt en vermeldt u alle koppelingen (externe verwijzingen) in Excel?
In Excel verwijst u naar de inhoud van cellen in een andere werkmap door een externe verwijzing te maken. Maar wanneer u alle koppelingen van een werkmap in Excel wilt opvragen, lijkt het lastig om alle externe verwijzingen (koppelingen) te vinden en weer te geven. De slimme methode in dit artikel helpt u snel alle koppelingen in een werkmap te vinden en weer te geven.
Vind en vermeld alle koppelingen met de Zoeken-opdracht
Vind en vermeld alle koppelingen met Kutools voor Excel
Vind en vermeld alle koppelingen met een VB-macro
Vind en vermeld alle koppelingen met de Zoeken-opdracht
Omdat externe koppelingen vierkante haken bevatten [, kunnen we deze koppelingen opsporen door alle vierkante haakjes in de volledige werkmap op te halen.
1. Klik op Start > Zoeken en selecteren > Zoeken om het dialoogvenster Zoeken en Vervangen te openen. U kunt het dialoogvenster Zoeken en Vervangen ook openen door op Ctrl + F te drukken.
2. Voer in het vak Zoeken naar: het linkerdeel van het vierkante haakje "[" in.
3. Klik op Opties, kies in de vervolgkeuzelijst Binnen blad of werkmap waaruit u de koppelingen wilt zoeken. Zie de schermafbeelding:
4. Klik daarna op de knop Alles zoeken. Vervolgens worden alle externe verwijzingen direct weergegeven in het dialoogvenster Zoeken en Vervangen. Druk op Ctrl + A om alle koppelingscellen te selecteren, zoals in de volgende schermafbeelding wordt getoond:
Het linkerdeel van het vierkante haakje helpt u alle externe koppelingen in de volledige werkmap te vinden. Als u alle soorten koppelingen wilt opsporen — zowel interne als externe — typt u het uitroepteken "!" in het vak Zoeken naar:
Vind en vermeld alle koppelingen met Kutools voor Excel
Met de functie Kutools voor Excel – Koppelingen zoeken en verbreken kunt u alle externe koppelingen op het actieve werkblad vinden en tegelijkertijd specifieke koppelingen verbreken, indien gewenst.
Als u Kutools voor Excelhebt geïnstalleerd, volgt u deze stappen:
1. Activeer het werkblad waarin u de koppelingen wilt zoeken en klik op Kutools > Koppeling > Koppelingen zoeken en verbreken. Zie de schermafbeelding:
2. In het dialoogvenster Koppelingen zoeken en verbreken klikt u op de vervolgkeuzelijst Filter en kiest u Alle koppelingen. Vervolgens worden alle koppelingen in het actieve werkblad weergegeven. U kunt ook de status van de koppelingen bekijken: OK betekent dat de koppeling geldig is, en Fout betekent dat de koppeling defect is.
Opmerkingen:
1. Als de optie Activeer cel is ingeschakeld, navigeert u automatisch naar de specifieke cel met de koppeling in het werkblad zodra u op een koppeling in de lijst klikt.
2. Wilt u een koppeling verbreken? Selecteer dan de koppeling in de lijst en klik op Koppeling verbreken.
Klik hier om Kutools voor Excel nu te downloaden en gratis uit te proberen!
Wilt u meer weten over deze functie? Klik dan op Koppelingen zoeken en verbreken.
Vind en vermeld alle koppelingen met een VB-macro
De volgende VBA-macro toont alle koppelingsbronnen van werkmappen op een nieuw werkblad in het huidige werkboek.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het modulevenster.
VBA: Geef alle koppelingen in Excel weer.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. Druk op de toets F5 om deze macro uit te voeren. Vervolgens wordt er een nieuw werkblad aangemaakt met de naam Koppelingsblad, waarin direct de locaties van alle koppelingen en de bestandsnamen en opslagpaden van de koppelingsbronwerkmappen worden weergegeven. Zie de schermafbeelding:
Vind en vermeld alle koppelingen met Kutools voor Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins