Hoe maak je de naam van een tabblad gelijk aan een celwaarde in Excel?
Bij het beheren van werkboeken met meerdere werkbladen, is het vaak handig om elk blad een beschrijvende naam te geven die overeenkomt met de inhoud. In veel gevallen wil je misschien dat de naam van het tabblad de waarde weerspiegelt die is ingevoerd in een specifieke cel - bijvoorbeeld het projectnaam dat is ingevoerd in cel A1 als de naam van het blad gebruiken. Deze aanpak kan navigatie vereenvoudigen, de structuur van je gegevens duidelijker maken en de algehele efficiëntie verbeteren bij het werken met grote hoeveelheden informatie of het delen van bestanden met collega's. In dit artikel introduceren we verschillende praktische methoden om een tabbladnaam automatisch of gemakkelijk te laten overeenkomen met een specifieke celwaarde in Excel.
Maak de naam van een tabblad gelijk aan een celwaarde met VBA-code
Maak de naam van een tabblad gelijk aan een celwaarde met Kutools voor Excel
Maak de naam van een tabblad gelijk aan een celwaarde met VBA-code
Als je wilt dat de naam van het werkbladtabblad dynamisch wordt bijgewerkt en automatisch volgt op basis van de waarde in een bepaalde cel, kun je dit bereiken met behulp van VBA (Visual Basic for Applications). Deze methode is vooral nuttig voor sjablonen of bestanden waarin bladnamen moeten veranderen op basis van gebruikersinvoer - zoals het noemen van bladen naar afdelingen, data of aangepaste categorieën. Hoewel deze oplossing eenmalige code-instelling vereist, is het efficiënt en elimineert het handmatig hernoemen.
1. Klik met de rechtermuisknop op het bladtabblad dat je automatisch wilt koppelen aan de waarde van een cel, en kies dan Bewerken Code uit het rechtermuisknopmenu. Zie hieronder:
2. Plak de volgende code in het lege Code-venster in het openende Microsoft Visual Basic for Applications-venster. Na het plakken, druk tegelijkertijd op Alt + Q om het venster te sluiten en terug te keren naar Excel.
VBA-code: Maak tabblad gelijk aan celwaarde
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Name = ActiveSheet.Range("A1")
ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End SubParameter uitleg: In de code verwijst A1 naar de cel waarvan je de waarde wilt gebruiken als de naam van het blad. Je kunt "A1" wijzigen om te verwijzen naar elke andere cel (bijvoorbeeld "B2" of "C5") volgens je behoeften.
Nu zal telkens wanneer de waarde in de aangewezen cel (zoals A1) verandert, de naam van het werkbladtabblad automatisch worden bijgewerkt om overeen te komen. Dit gebeurt zonder verdere handmatige stappen.
Toepasbare scenario's: Gebruik deze methode als je wilt dat de bladnaam direct en automatisch verandert wanneer de inhoud van een specifieke cel wordt bewerkt.
Beperking: VBA-macro's moeten zijn ingeschakeld in je werkmap, en je moet het bestand opslaan als een macro-ondersteunende werkmap (*.xlsm). Het veranderen van de verwijzing naar een cel naar een naam die Excel niet toestaat (zoals speciale tekens of meer dan 31 tekens) zal fouten veroorzaken.
Tips en foutmeldingen:
- Bladnamen in Excel mogen niet langer zijn dan 31 tekens en mogen geen van de volgende tekens bevatten: \ / : ? * [ ]. Als de celwaarde ongeldige tekens bevat, zal de VBA-code een fout weergeven.
- Als je de automatische hernoeming wilt wijzigen om een andere cel weer te geven, wijzig dan eenvoudig de celverwijzing in de code en sla de wijzigingen op.
- Om macro's in te schakelen en ervoor te zorgen dat de code werkt, moet je werkmap worden opgeslagen in een macro-ondersteunend formaat (*.xlsm).
- Als je wilt dat andere bladen zich op dezelfde manier gedragen, herhaal dan de stappen voor elk gewenst blad.
Maak de naam van een tabblad gelijk aan een celwaarde met Kutools voor Excel
Voor gebruikers die liever geen gebruik maken van VBA of snel meerdere bladen willen hernoemen zonder code te schrijven, biedt Kutools voor Excel een handige oplossing. De functie Werkbladen Batch Hernoemen stelt je in staat om één of meer werkbladen te hernoemen op basis van waarden in specifieke cellen. Deze aanpak is vooral geschikt voor situaties waarin je meerdere bladnamen tegelijk moet bijwerken - zoals het maken van maandrapportages, teamoverzichten, of het standaardiseren van bladnamen in een werkboek.
Volg deze stappen om bladtabbladen bulksgewijs te hernoemen op basis van celwaarden:
1. Klik op Kutools Plus > Werkblad > Werkbladen Batch Hernoemen. Zie screenshot:
2. Configureer in het dialoogvenster Werkbladen Batch Hernoemen je gewenste instellingen als volgt:
Nu zullen de geselecteerde werkbladen onmiddellijk worden hernoemd om overeen te komen met de corresponderende waarden in het gespecificeerde bereik, zoals hieronder gedemonstreerd.
Opmerkingen:
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Maak de naam van een tabblad gelijk aan een celwaarde met Kutools voor Excel
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen