Hoe hernoem je werkbladen in Excel op basis van celwaarden?
Het hernoemen van werkbladen komt vaak voor in ons Excel-werk, maar heeft u ooit geprobeerd werkbladen te hernoemen op basis van celwaarden? Uiteraard kunt u dit handmatig doen, maar in deze handleiding ontdekt u slimme trucs om snel meerdere werkbladen te hernoemen aan de hand van celwaarden – en zo kostbare tijd te besparen.
Werkbladen hernoemen op basis van een specifieke cel met VBA
Werkbladen hernoemen op basis van een specifieke cel met Batch Hernoem Werkbladen 
Werkbladen hernoemen op basis van een bereik van celinhoud met Batch Hernoem Werkbladen
Werkbladen hernoemen op basis van een specifieke cel met VBA
Met de onderstaande VBA-code hernoemt u het betreffende werkblad op basis van een specifieke cel.
1. Selecteer de cel waarop u het werkblad wilt baseren – in dit geval cel A1. Zie de schermafbeelding:
2. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
3. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het nieuwe Module-venster.
VBA: Werkbladen automatisch hernoemen op basis van de waarde in een specifieke cel.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. Druk op F5 om de VBA-code uit te voeren. Vervolgens worden alle werkbladen hernoemd op basis van de waarden in hun respectievelijke cel A1.
Werkbladen hernoemen op basis van een specifieke cel met Batch Hernoem Werkbladen
Als u Kutools voor Excel hebt, hoeft u de VBA-code niet op te slaan; u kunt dan de functie Batch Hernoem Werkbladen gebruiken om snel alle werkbladen te hernoemen op basis van hun bijbehorende cellen.
Na gratis installerenKutools voor Excel, gaat u als volgt te werk:
1. Activeer de werkmap waarvan u de werkbladnamen wilt hernoemen.
2. Klik op KUTOOLS PLUS > Werkblad > Werkbladen hernoemen. Zie de schermafbeelding:
3. In het weergegeven dialoogvenster vinkt u de werkbladen aan die u wilt hernoemen in het deelvenster Werkbladen en selecteert u een van de gewenste Hernoemopties. In dit voorbeeld vervang ik de bladnaam, dus vink ik Uit overeenkomstige werkbladcel aan en selecteer ik de cel waarmee ik de naam wil wijzigen. Zie de schermafbeelding:
4. Klik op OK. De werkbladen zijn nu hernoemd op basis van de inhoud van de desbetreffende cel.
Maar soms moet u meerdere werkbladen hernoemen op basis van een bereik van celwaarden, zoals in de onderstaande schermafbeelding is weergegeven. In dat geval kunt u de onderstaande methode kiezen.
Werkbladen hernoemen op basis van een bereik van celinhoud met Batch Hernoem Werkbladen
Met Batch Hernoem Werkbladen van Kutools voor Excel kunt u werkbladen ook hernoemen op basis van een geselecteerd bereik.
Na gratis installerenKutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkblad > Werkbladen hernoemen. Zie de schermafbeelding:
2. In het dialoogvenster Batch Hernoem Werkbladen geeft u de volgende instellingen op:
(1) Selecteer de werkbladen die u wilt hernoemen uit Werkbladlijst;
(2) Vink de optie Uit selectieaan en selecteer de celwaarden waarop u de hernoeming wilt baseren;
(3) Geef de Hernoemingsstijl op. U kunt kiezen uit Invoegen vóór originele naam, Invoegen na originele naam of Originele naam vervangen, en het bijbehorende resultaat direct in het dialoogvenster bekijken.
3. Klik op OK en u ziet meteen dat alle geselecteerde werkbladen zijn hernoemd op basis van de opgegeven celwaarden.
Originele naam vervangen
Invoegen vóór originele naam
Invoegen na originele naam
Met het hulpprogramma Werkbladen hernoemen kunt u ook Werkbladen hernoemen met een specifiek voorvoegsel of achtervoegsel.Klik hier voor meer informatie over Batch Hernoem Werkbladen.
Meerdere werkbladen hernoemen op basis van celwaarden
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