Hoe vervangt u celnamen door celverwijzingen in Excel?
Bij het werken met benoemde bereiken in Excel zijn deze vaak handig voor leesbaarheid en formulebeheer. Er zijn echter situaties waarin u Celnaam wilt verwijderen en de daadwerkelijke celverwijzingen wilt herstellen, vooral bij het delen van bestanden, probleemoplossing of het standaardiseren van sjablonen. In dit artikel behandelen we verschillende methoden om benoemde bereiken te vervangen door hun overeenkomstige celverwijzingen in Excel.
Vervang Celnaam door celverwijzingen met VBA-code
Vervang Celnaam snel en eenvoudig door celverwijzingen met Kutools voor Excel
In dit werkblad geef ik bijvoorbeeld bereik A2:A6 de naam saleprice en cel B2 de naam discount. Vervolgens gebruik ik beide celnamen in een formule om de nieuwe prijs te berekenen. Zie de schermafbeeldingen:
Na het toepassen van de snelle trucs wordt Celnaam vervangen door celverwijzingen, zoals hieronder wordt getoond:
Vervang Celnaam door celverwijzingen met VBA-code
Met VBA kunt u de Celnaam in formules vervangen door celverwijzingen, stap voor stap als volgt:
1. Selecteer het bereik met de formules waarvan u de namen wilt vervangen door celverwijzingen.
2. Druk op Alt + F11 om een nieuw Microsoft Visual Basic for Applications-venster te openen. Klik vervolgens op Invoegen > Module en kopieer en plak de volgende code in de module:
VBA-code: Vervang Celnaam door absolute verwijzing
Sub AbsoleteNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(VBA.Replace(xName.RefersTo, "=", ""), "$", ""))
End If
Next
Next
End SubVBA-code: Vervang Celnaam door relatieve verwijzing
Sub ReplaceNamesWithRelativeRefs()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xName As Name
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeFormulas)
For Each Rng In WorkRng
For Each xName In ThisWorkbook.Names
If InStr(Rng.Formula, xName.Name) > 0 Then
Rng.Formula = VBA.Replace(Rng.Formula, xName.Name, VBA.Replace(xName.RefersTo, "=", ""))
End If
Next
Next
End Sub3. Druk vervolgens op F5 om de code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren dat u wilt vervangen. Zie de schermafbeelding:
4. Klik vervolgens op OK. Alle geselecteerde formules met celnaam zijn nu vervangen.
Vervang Celnaam snel en eenvoudig door celverwijzingen met Kutools voor Excel
Hoewel dit handmatig of via VBA tijdrovend en foutgevoelig kan zijn, biedt Kutools voor Excel een oplossing met één klik om het hele proces te vereenvoudigen. Met Kutools voor Excel helpt de Namen converteren naar bereik-functie u snel en eenvoudig celnamen te vervangen door celverwijzingen.
1. Pas deze functie toe door te klikken op Kutools > Naamgereedschappen > Namen converteren naar bereik.
2. Er verschijnt een dialoogvenster. Klik op het tabblad Bereik en selecteer vervolgens het bereik dat u wilt vervangen door celverwijzingen in Gebaseerd op bereik. Klik daarna op de knop Vervangen. Zie de schermafbeelding:
3. Er verschijnt een nieuw meldingsvenster met het aantal gewijzigde en ongewijzigde formules. Klik op OK om door te gaan—daarna zijn de celnamen in het geselecteerde bereik vervangen door celverwijzingen.
🔚 Conclusie
Of u nu werkt met enkele formules of een volledige werkmap, het vervangen van benoemde bereiken door daadwerkelijke celverwijzingen is een uitstekende manier om transparantie, compatibiliteit en samenwerking te verbeteren.
- Voor gevorderde gebruikers biedt VBA een flexibele en programmeerbare oplossing om het vervangingsproces te automatiseren.
- Voor alle anderen biedt Kutools voor Excel de snelste en meest gebruiksvriendelijke manier om de taak in slechts enkele klikken te voltooien – zonder coderen of formules bewerken.
Kies de methode die het beste aansluit bij uw werkwijze, zodat u uw formules efficiënt kunt opschonen en uw spreadsheets begrijpelijk en onderhoudbaar blijven. Wilt u nog meer Excel-tips en -trucs ontdekken?Onze website biedt duizenden tutorials om u te helpen Excel echt onder de knie te krijgen.
Gerelateerd artikel:
Wijzig celverwijzingen in formules naar Celnaam in 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