Hoe kopieert en hernoemt u automatisch een werkblad in Excel?
Hoe kopieert u in Excel een werkblad en hernoemt u het automatisch zonder de naam handmatig in te typen? In dit artikel laat ik zien hoe u een werkblad één keer of meerdere keren kunt kopiëren en meteen voorziet van specifieke namen.
Kopieer een werkblad meerdere keren en hernoem deze met aangepaste namen met behulp van Kutools voor Excel
Kopieer een werkblad meerdere keren en hernoem deze met opeenvolgende tabbladnamen met behulp van VBA-code
Als u een werkblad meerdere keren wilt kopiëren en de kopieën automatisch namen zoals KTE-1, KTE-2, KTE-3, KTE-4… wilt geven, helpt de volgende VBA-code u daarbij.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Kopieer een werkblad meerdere keren en hernoem deze tegelijk:
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 daarna op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd hoeveel exemplaren van het huidige werkblad u wilt kopiëren; zie de schermafbeelding:
4. Voer het aantal kopieën in het weergegeven dialoogvenster in en klik vervolgens op de knop OK. Uw huidige werkblad is nu vijf keer gekopieerd en hernoemd met opeenvolgende namen, zoals in de volgende schermafbeelding wordt getoond:
Opmerking: In de bovenstaande code kunt u de tekst „KTE-” naar wens aanpassen.
Kopieer een werkblad meerdere keren en hernoem deze met aangepaste namen met behulp van Kutools voor Excel
De bovenstaande VBA-codes zijn mogelijk lastig toe te passen. Daarom bied ik u hier een eenvoudige oplossing: Kutools voor Excel. Met de functie Werkbladen met reeks maken voert u deze taak moeiteloos uit.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkblad > Werkbladen met reeks maken; zie de schermafbeelding:
2. In het dialoogvenster Werkbladen met reeks maken:
(1.) Selecteer het Werkbladnaam dat u wilt kopiëren in de keuzelijst Gebaseerd op werkblad;
(2.) Geef vervolgens het aantal werkbladen dat u wilt kopiëren op in het tekstvak onder Aantal te maken werkbladen;
(3.) Schakel daarna Opeenvolgende nummersin onder de sectie Werkbladnaam gebaseerd op;
(4.) Maak tot slot de gewenste reeks Werkbladnaam in het rechterdeelvenster; zie de schermafbeelding:
3.Nadat u de instellingen hebt voltooid, klikt u op de knop Ok. Het desbetreffende werkblad is nu meerdere keren gekopieerd en hernoemd op basis van uw ingestelde reeks in één nieuw werkblad; zie de schermafbeelding:
Download gratis Kutools voor Excel nu!
Demo: Kopieer een werkblad meerdere keren en hernoem deze met aangepaste namen met behulp van Kutools voor Excel
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