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

or

Hoe blad kopiëren en hernoemen op basis van de celwaarde in Excel?

Normaal gesproken kunt u de Verplaatsen of kopiëren om een ​​werkblad te kopiëren en typ vervolgens handmatig een nieuwe naam voor de kopie. Maar heb je ooit geprobeerd het werkblad te hernoemen op basis van een celwaarde na het kopiëren van het werkblad? In dit artikel zal ik het hebben over het automatisch hernoemen van het werkblad op basis van de celwaarde wanneer u een kopie maakt.

Kopieer een werkblad en hernoem op basis van de celwaarde met VBA-code

Kopieer een werkblad meerdere keren en hernoem op basis van celwaarden met Kutools voor Excel


Kopieer een werkblad en hernoem op basis van de celwaarde met VBA-code


De volgende VBA-code kan u helpen om een ​​werkblad te kopiëren en automatisch een nieuwe celwaarde te geven, doe dit als volgt:

1. Activeer het werkblad dat u wilt kopiëren en houd vervolgens het 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: een werkblad kopiëren en de naam wijzigen met een celwaarde:

Sub Copyrenameworksheet()
'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. En druk vervolgens op F5 sleutel om deze code uit te voeren, en uw huidige werkblad is gekopieerd naar de huidige werkmap na alle werkbladen, en het is hernoemd met de celwaarde die u hebt opgegeven, zie screenshot:

doc kopie raname op waarde 1

Notes: In de bovenstaande code, de celverwijzing A1 is de celwaarde die u wilt hernoemen voor het nieuwe gekopieerde werkblad, u kunt dit naar uw behoefte wijzigen.


Kopieer een werkblad meerdere keren en hernoem op basis van celwaarden met Kutools voor Excel

De bovenstaande code kan alleen worden hernoemd met één celwaarde, als u het blad meerdere keren moet kopiëren en hernoemen op basis van een lijst met celwaarden, Kutools for Excel's Werkblad volgorde maken kan je helpen deze taak zo snel mogelijk af te maken.

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 kopie raname op waarde 2

doc kopie raname op waarde 3

2. In de Werkblad volgorde maken dialoogvenster, voert u de volgende bewerkingen uit:

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

(2.) Selecteer Gegevens in een bereikoptie onder de Bladnamen op basis van sectie en klik op doc kopie raname op waarde 5 om de celwaarden te selecteren waarvan u de gekopieerde werkbladen wilt hernoemen op basis van.

Download Kutools nu voor Excel!

3. Dan klikken Ok knop en het specifieke werkblad zijn meerdere keren gekopieerd en hernoemd met de celwaarden die u hebt geselecteerd in een nieuwe werkmap, zie screenshot:

doc kopie raname op waarde 4

Download en proef Kutools nu voor Excel!


Demo: Kopieer een werkblad meerdere keren en hernoem op basis van celwaarden met Kutools 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.
    Phil · 2 years ago
    Your code is what I have been looking for, however the cell contents that I wish to use to rename the sheet is a date.

    For example, on the first sheet, cell A2 displays a date as Monday 3 April 2017.

    What I would like to happen is when the next sheet is created by the macro would be to take the date from A2, add 7 to display, for example, "Monday 10 July, 2017" but rename the new sheet in the dd-mm-yy format, so "10-07-17".

    Is this possible?

    By the way, I have Kutools for Excel, but this spreasheet will be a blood pressure record for my dad who doesnt have Kutools.

    Thanks in advance!
  • To post as a guest, your comment is unpublished.
    joe · 2 years ago
    The code below works great. My question is, is it possible to automatically open the new worksheet (based on A1) and delete the content from the previous sheet as it is being used as the template.




    Sub Copyrenameworksheet()
    'Updateby Extendoffice 20160704
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
    End Sub