Hoe een werkblad te kopiëren en automatisch te hernoemen in Excel?

In Excel, hoe kun je een werkblad kopiëren en het automatisch hernoemen zonder de naam handmatig in te typen zoals gebruikelijk? In dit artikel zal ik bespreken hoe je een werkblad eenmalig of meerdere keren kunt kopiëren en ze tegelijkertijd specifieke namen kunt geven.

Kopieer een werkblad meerdere keren en hernoem ze met oplopende tabbladnamen door VBA-code te gebruiken

Kopieer een werkblad meerdere keren en hernoem ze met aangepaste namen door Kutools voor Excel te gebruiken

Kopieer een werkblad meerdere keren en hernoem ze met oplopende tabbladnamen door VBA-code te gebruiken

Als je een werkblad meerdere keren moet kopiëren en ze reeksenamen wilt geven, zoals KTE-1, KTE-2, KTE-3, KTE-4…, kan de volgende VBA-code je helpen.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Kopieer een werkblad meerdere keren en hernoem in één keer:

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en een promptvenster zal je vragen hoeveel kopieën van het huidige werkblad je wilt kopiëren, zie onderstaande schermafbeelding:

4. Voer het aantal kopieën in het pop-updialoogvenster in en klik vervolgens op de OK-knop. Je huidige werkblad is 5 keer gekopieerd en hernoemd met opeenvolgende namen zoals in de volgende schermafbeelding te zien is:

Opmerking: In de bovenstaande code kun je de tekst van de werkbladnaam “KTE-” wijzigen naar wat je nodig hebt.

Kopieer een werkblad meerdere keren en hernoem ze met aangepaste namen door Kutools voor Excel te gebruiken

Misschien zijn de bovenstaande VBA-codes moeilijk voor je om toe te passen. Hier introduceer ik een eenvoudig hulpmiddel - Kutools voor Excel. Met de functie Werkbladen met reeks maken kun je deze taak zonder enige moeite uitvoeren.

Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:

1. Klik op Kutools Plus > Werkblad > Werkbladen met reeks maken, zie onderstaande schermafbeelding:

2. In het dialoogvenster Werkbladen met reeks maken:

(1.) Selecteer de naam van het werkblad dat je wilt kopiëren uit de vervolgkeuzelijst Gebaseerd op werkblad;

(2.) Specificeer vervolgens het aantal werkbladen dat je wilt kopiëren onder het tekstvak Aantal te maken;

(3.) Vink daarna Opeenvolgende nummers aan onder de sectie Werkbladnaam gebaseerd op;

(4.) Maak tot slot de namen van de reekswerkbladen aan in het rechterpaneel die je wilt, zie onderstaande schermafbeelding:

3. Nadat je de instellingen hebt voltooid, klik dan op de knop Ok. Het specifieke werkblad is meerdere keren gekopieerd en hernoemd op basis van je gemaakte reeks in een nieuw werkboek, zie onderstaande schermafbeelding:

Klik hier om Kutools voor Excel Nu Gratis te Downloaden!

Demo: Kopieer een werkblad meerdere keren en hernoem ze met aangepaste namen door Kutools voor Excel te gebruiken