Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe kopieer ik een blad en hernoem ik automatisch in Excel?

Hoe zou u in Excel een werkblad kunnen kopiëren en de naam ervan automatisch wijzigen zonder de naam zoals gewoonlijk in te voeren? In dit artikel zal ik het hebben over het kopiëren van een blad een keer of meerdere keren en geef ze specifieke namen tegelijk.

Kopieer een werkblad meerdere keren en hernoem ze met oplopende tabnamen met behulp van VBA-code

Kopieer een werkblad meerdere keren en hernoem ze met aangepaste namen met behulp van Kutools voor Excel



Als u een werkblad meerdere keren moet kopiëren en ze reeksnamen moet geven, zoals KTE-1, KTE-2, KTE-3, KTE-4 ..., kan de volgende VBA-code u een plezier doen.

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: meerdere keren een werkblad kopiëren en in één keer hernoemen:

Sub Create()
'Updateby Extendoffice 20160704
    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 F5 sleutel om deze code uit te voeren, en een promptvenster zal u eraan herinneren hoeveel exemplaren van het huidige werkblad u wilt kopiëren, zie screenshot:

doc hernoem gekopieerde vellen 1

4. Voer het aantal exemplaren in het pop-upvenster in en klik vervolgens op OK knop, uw huidige werkblad is gedupliceerd 5-kopieën en hernoemd met de reeksnaam als volgende screenshot getoond:

doc hernoem gekopieerde vellen 2

Notes: In de bovenstaande code kunt u de naam van de werkbladnaam wijzigen "KTE-"Naar jouw behoefte.


Misschien zijn de bovenstaande VBA-codes moeilijk toe te passen, hier zal ik een eenvoudige tool introduceren Kutools for Excel, Met Maak werkbladen voor het maken van reeksen hulpprogramma, kunt u deze taak zonder enige moeite uitvoeren.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

1. Klikken Enterprise > Werkblad > Maak werkbladen voor het maken van reeksenzie screenshot:

doc hernoem gekopieerde vellen 3

2. In de Maak werkbladen voor het maken van reeksen dialoog venster:

(1.) Selecteer de werkbladnaam die u wilt kopiëren van de Basis werkblad keuzelijst;

(2.) Geef vervolgens het aantal werkbladen op waarnaar u wilt kopiëren Het aantal maken tekstvak;

(3.) En controleer dan Volgnummers onder de Bladnamen op basis van sectie;

(4.) Maak ten slotte de namen van het sequentie-werkblad in het rechterdeelvenster dat u wilt, zie screenshot:

doc hernoem gekopieerde vellen 4

3. Klik na het voltooien van de instellingen op Ok knop, en het specifieke werkblad is meerdere keren gekopieerd en hernoemd op basis van uw gemaakte volgorde in een nieuwe werkmap, zie screenshot:

doc hernoem gekopieerde vellen 5

Klik nu gratis downloaden Kutools downloaden voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Ales · 1 years ago
    Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
  • To post as a guest, your comment is unpublished.
    Anonymous · 2 years ago
    Wow this saved a lot of time for me! Thank you!