Normaal gesproken kunnen we om werkbladen in Excel te hernoemen snel dubbelklikken op de bladtab of met de rechtermuisknop op de bladtab klikken om de opdracht Naam wijzigen te kiezen voor het hernoemen van werkbladen. Dat is best handig om een ​​of twee werkbladen in Excel te hernoemen, maar als we meerdere werkbladen binnen één bewerking willen hernoemen, hoe kunnen we dat dan doen?

Gebruik de opdracht Rename om werkbladen te hernoemen

Een handig hulpmiddel gebruiken om meerdere werkbladen comfortabel te hernoemen

VBA-code gebruiken voor het hernoemen van meerdere werkbladen

Gebruik de opdracht Rename om werkbladen te hernoemen

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Edge, Firefox en Safari!
Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

We kunnen werkbladen snel hernoemen in Excel met de andere naam geven commando volgens de volgende procedures:

Klik met de rechtermuisknop op de bladtab waarvan u de naam wilt wijzigen en kies andere naam geven opdracht uit het rechtsklikmenu. Of dubbelklik op de bladtab om het werkblad te hernoemen. Typ vervolgens een nieuwe naam en druk op Enter sleutel om het te hernoemen, zie screenshot:

Met deze andere naam geven opdracht, kunt u slechts één werkblad tegelijk hernoemen. Herhaal de bovenstaande bewerkingen om meerdere werkbladen te hernoemen.

Een handig hulpmiddel gebruiken om meerdere werkbladen comfortabel te hernoemen

VBA-code gebruiken voor het hernoemen van meerdere werkbladen

Hier zal ik u twee VBA-codes voorstellen om meerdere werkbladen te hernoemen.

Code 1. VBA-code om meerdere werkbladen in één keer te hernoemen met de gewenste naam

Met behulp van de volgende VBA-code kunt u snel alle werkbladen van de huidige werkmap hernoemen met hetzelfde voorvoegsel in hun werkbladnamen, zoals: KTE-order1, KTE-order 2 en KTE-order 3 ...

1. Klik op Ontwikkelaar > Visual Basicen klik Invoegen > Module in de Microsoft Visual Basic-toepassingsvensters.

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

VBA: hernoem alle bladen 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  knop om de code uit te voeren, en voer de gewenste naam in het pop-outvenster in. zie screenshots:

4. Klik OK. Vervolgens kunt u zien dat alle bladen hernoemd zijn.

2. VBA-code om meerdere werkbladen te hernoemen op basis van een specifieke celwaarde in elk werkblad van de actieve werkmap

Met behulp van de volgende VBA-code worden alle werkbladen van de huidige werkmap hernoemd door de inhoud van een specifieke cel te gebruiken. U kunt bijvoorbeeld de werkbladnaam typen in cel A1 van de hele werkmap, waarna de naam van het werkblad wordt gewijzigd in celwaarde A1.

1.  Geef een cel op die de werkbladnaam in elk werkblad moet bevatten en typ de werkbladnaam erin. In dit voorbeeld typ ik de werkbladnaam in cel A1 in elk werkblad.

2.  Klik Ontwikkelaar > Visual Basicen klik Invoegen > Module in de Microsoft Visual Basic-toepassing Windows.

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  knop om de code uit te voeren. Alle werkbladen worden hernoemd op basis van de celinhoud van A1.

Demo: hernoem meerdere werkbladen met Kutools voor Excel

Gerelateerde artikelen