Hoe meerdere werkbladen in Excel te hernoemen?

Normaal gesproken om werkbladen in Excel te hernoemen, kunnen we snel dubbelklikken op het tabblad van het werkblad, of met de rechtermuisknop op het tabblad klikken en de opdracht Hernoemen kiezen om de werkbladen te hernoemen. Dat is vrij handig om één of twee werkbladen in Excel te hernoemen, maar als we meerdere werkbladen in één keer willen hernoemen, hoe doen we dat dan?

Werkbladen hernoemen met de opdracht Hernoemen

Een handig hulpmiddel gebruiken om meerdere werkbladen comfortabel te hernoemen

VBA-code gebruiken om meerdere werkbladen te hernoemen

Werkbladen hernoemen met de opdracht Hernoemen

We kunnen snel werkbladen in Excel hernoemen met de opdracht Hernoemen volgens de volgende procedures:

Klik met de rechtermuisknop op het tabblad van het werkblad dat u wilt hernoemen en kies Hernoemen uit het rechtsklikmenu. Of dubbelklik op het tabblad om het werkblad te hernoemen. Typ vervolgens een nieuwe naam en druk op de Enter-toets om het te hernoemen, zie screenshot:

Met deze opdracht Hernoemen kunt u slechts één werkblad tegelijk hernoemen. Voor het doel om meerdere werkbladen te hernoemen, herhaal dan de bovenstaande bewerkingen.

Een handig hulpmiddel gebruiken om meerdere werkbladen comfortabel te hernoemen

VBA-code gebruiken om meerdere werkbladen te hernoemen

Hier introduceer ik twee VBA-codes om meerdere werkbladen te hernoemen.

Code 1. VBA-code om meerdere werkbladen in één keer te hernoemen zoals gewenst

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

1. Klik op Ontwikkelaar > Visual Basic, en klik op Invoegen > Module in het venster Microsoft Visual Basic Application.

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

VBA: Alle bladen hernoemen 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 naam die u wilt in het pop-up dialoogvenster in. Zie screenshots:

4. Klik op OK. Dan ziet u dat alle bladen zijn hernoemd.

2. VBA-code om meerdere werkbladen te hernoemen met een specifieke celwaarde in elk werkblad van het actieve werkboek

Met de volgende VBA-code wordt alle werkbladen van het huidige werkboek hernoemd met de inhoud van een specifieke cel. Bijvoorbeeld, u kunt de werkbladnaam in cel A1 van het hele werkboek typen, en dan wordt het werkblad hernoemd naar de celwaarde A1.

1.  Specificeer een cel om de werkbladnaam in elk werkblad te bevatten en typ de werkbladnaam erin. In dit voorbeeld typ ik de werkbladnaam in cel A1 in elk werkblad.

2.  Klik op Ontwikkelaar > Visual Basic, en klik op Invoegen > Module in het venster Microsoft Visual Basic Application.

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

VBA: Werkbladen hernoemen op basis van een specifieke celinhoud

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 zijn hernoemd op basis van de celinhoud van A1.

Demo: Meerdere werkbladen hernoemen met Kutools voor Excel

Gerelateerde artikelen