Hoe hernoem ik meerdere werkbladen tegelijk in Excel?

Normaal gesproken hernoemt u werkbladen in Excel door dubbel te klikken op het tabblad van het werkblad of door met de rechtermuisknop op het tabblad te klikken en Hernoemen te kiezen. Dat is ideaal bij één of twee werkbladen — maar hoe hernoemt u meerdere werkbladen tegelijk?

Gebruik de opdracht Hernoemen om Werkbladen hernoemen

Gebruik een handige tool om meerdere werkbladen comfortabel te hernoemen

Gebruik VBA-code voor het hernoemen van meerdere werkbladen

Gebruik de opdracht Hernoemen om Werkbladen hernoemen

We kunnen snel Werkbladen hernoemen in Excel met de Hernoemenopdracht volgens de volgende stappen:

Klik met de rechtermuisknop op het werkbladtabblad dat u wilt hernoemen en kies Hernoemen in het contextmenu. U kunt ook dubbelklikken op het werkbladtabblad om het direct te hernoemen. Typ vervolgens een nieuwe naam en druk op de Enter-toets om de wijziging toe te passen; zie schermopname:

Met deze Hernoemen-opdracht kunt u slechts één werkblad tegelijk hernoemen. Om meerdere werkbladen te hernoemen, herhaalt u de bovenstaande stappen.

Gebruik een handige tool om meerdere werkbladen comfortabel te hernoemen

Gebruik VBA-code voor het hernoemen van meerdere werkbladen

Hieronder stel ik u twee VBA-codes voor waarmee u meerdere werkbladen tegelijk kunt hernoemen.

Code 1. VBA-code om meerdere werkbladen tegelijkertijd te hernoemen naar de gewenste naam

Met de volgende VBA-code kunt u alle werkbladen van de Huidig werkboek snel hernoemen met hetzelfde voorvoegsel in hun Werkbladnaam, zoals: KTE-order1, KTE-order 2 en KTE-order 3…

1. Klik op Ontwikkelaar > Visual Basic en klik vervolgens in het venster Microsoft Visual Basic for Applications op Invoegen > Module.

2. Kopieer en plak de volgende code in de Module.

VBA: Hernoem alle werkbladen door een specifieke naam in te voeren

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3. Klik op de -knop om de code uit te voeren en voer de gewenste naam in het pop-updialoogvenster in. Zie schermopnamen:

4. Klik op OK. Vervolgens ziet u dat alle werkbladen zijn hernoemd.

2. VBA-code om meerdere werkbladen te hernoemen op basis van de waarde in een specifieke cel van elk werkblad in het huidige werkboek

Met de volgende VBA-code worden alle werkbladen in het huidige werkboek hernoemd op basis van de inhoud van een specifieke cel. Typ bijvoorbeeld de gewenste werkbladnaam in cel A1 van elk werkblad, en het werkblad krijgt automatisch de naam die in cel A1 staat.

1.Geef in elk werkblad een cel op waarin de werkbladnaam moet komen en typ daar de werkbladnaam in. In dit voorbeeld typ ik de werkbladnaam in cel A1 van elk werkblad.

2. Klik op Ontwikkelaar > Visual Basic en klik vervolgens op Invoegen > Module in het venster Microsoft Visual Basic for Applications.

3. Kopieer en plak de volgende code in de module.

VBA: Werkbladen hernoemen op basis van de inhoud van een specifieke cel

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4. Klik op de -knop om de code uit te voeren. Alle werkbladen worden hernoemd op basis van de inhoud van cel A1.

Demo: Hernoem meerdere werkbladen met Kutools voor Excel

Gerelateerde artikelen