Hoe repareert u defecte koppelingen in Excel?
In Excel worden koppelingen naar andere werkmappen vaak gebruikt om relevante informatie te raadplegen. Als een brondocument echter wordt hernoemd of naar een andere locatie verplaatst, raken deze koppelingen mogelijk defect en veroorzaken fouten. Deze handleiding biedt twee effectieve methoden – via de functie *Koppelingen bewerken* of met VBA-code – om defecte koppelingen in uw werkmap snel te identificeren en te herstellen.
Repareer defecte koppelingen door Koppelingen bewerken toe te passen
Repareer defecte koppelingen met behulp van VBA-code
In Excel kunt u het dialoogvenster Koppelingen bewerken openen om de koppelingen één voor één te herstellen.
1. Open de werkmap met de defecte koppelingen en klik op Gegevens > Koppelingen bewerken(in de groep)Query's en verbindingen).
2. Klik in het dialoogvenster Koppelingen bewerken op Status controleren om te zien welke koppelingen defect zijn.
3. Klik vervolgens op de defecte koppelingen en daarna op de knop Brondocument wijzigen. Kies in het venster Brondocument wijzigen het juiste brondocument en klik op OK.
U ziet nu dat de status is gewijzigd van Fout naar OK. Herhaal stap 3 om andere defecte koppelingen te herstellen.
In deze sectie voert u VBA-code in om defecte koppelingen te herstellen.
1. Open de werkmap waarin u de defecte koppelingen wilt herstellen en druk op Alt+F11.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module om een nieuwe lege module aan te maken.
3. Kopieer en plak de onderstaande code in de nieuwe module.
VBA: defecte koppelingen herstellen
Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
MsgBox "Select updated source"
Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
xStrLk = xLks(xFNum)
xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
If xStatus <> 0 And xStatus <> 3 Then
MsgBox xStrLk & " the link is broken, please select new source"
xF = Application.GetOpenFilename()
If xF <> "" Then
For Each xLk In ActiveSheet.UsedRange.Hyperlinks
xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
If InStr(xStrLk, GetAddress) <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
End If
Next
ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
End If
End If
Next
End Sub
4. Druk op F5 of op de knop Uitvoeren om de code uit te voeren. De code zoekt nu naar defecte koppelingen. Als er defecte koppelingen worden gevonden, verschijnt een dialoogvenster waarin wordt aangegeven welke koppeling defect is. Selecteer dan een nieuw brondocument en klik op 
OK om door te gaan.
5. Kies in het venster Openen het bijgewerkte brondocument en klik op OK.
Als er nog steeds een defecte koppeling in de werkmap zit, verschijnen bovenstaande dialoogvensters opnieuw totdat Alle ongeldige koppelingen zijn hersteld.
Opmerking: als de werkmap geen defecte koppeling bevat, stopt de VBA-uitvoering automatisch.
Tip: als u alle extra koppelingen wilt bekijken en de defecte koppelingen wilt verwijderen, is de functie Kutools voor Excel’s Koppelingen zoeken en verbreken een uitstekende hulp.
Lees onze gedetailleerde handleiding voor meer informatie over deze functie.
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Hoe Achtergrondkleur in een werkblad vast te zetten/blokkeren
Soms wilt u, wanneer u een werkblad deelt met anderen om te bewerken, de achtergrondkleur in een celbereik vergrendelen, zodat deze niet kan worden gewijzigd.
Hoe verkleint u de grootte van een Excel-bestand?
Soms duurt het enkele minuten om een Excel-bestand te openen of op te slaan als het bestand te groot is. In deze handleiding leert u hoe u de bestandsgrootte van uw Excel-bestand verkleint door onnodige of nooit gebruikte inhoud en opmaak te verwijderen.
Excel: hoe maakt of voegt u een bladwijzer in?
Hebt u zich ooit afgevraagd hoe u snel naar een specifiek gegevensbereik kunt springen wanneer uw werkblad of werkmap vol zit met gegevens? Met een bladwijzer is dat eenvoudig!
Hoe schaduwt u oneven of even (afwisselende) rijen/kolommen in Excel?
Bij het ontwerpen van een werkblad kiezen veel mensen ervoor om oneven of even (afwisselende) rijen of kolommen te schaduwen, zodat het werkblad visueel aantrekkelijker wordt. In dit artikel worden twee methoden beschreven om oneven of even rijen/kolommen in Excel te schaduwen.
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