Hoe kopieert en hernoemt u een werkblad in Excel op basis van een celwaarde?
Normaal gesproken gebruikt u de functie Verplaatsen of kopiëren om een werkblad te kopiëren en typt u vervolgens handmatig een nieuwe naam voor de kopie, zoals u dat nodig hebt. Maar hebt u ooit geprobeerd het werkblad direct na het kopiëren te hernoemen op basis van een celwaarde? In dit artikel leg ik uit hoe u het werkblad automatisch kunt hernoemen op basis van een celwaarde bij het maken van een kopie.
Kopieer een werkblad en hernoem het op basis van een celwaarde met VBA-code
Kopieer een werkblad meerdere keren en hernoem het op basis van celwaarden met Kutools voor Excel
Kopieer een werkblad en hernoem het op basis van een celwaarde met VBA-code
De volgende VBA-code helpt u automatisch een werkblad te kopiëren en te hernoemen op basis van een specifieke celwaarde. Volg deze stappen:
1. Activeer het werkblad dat u wilt kopiëren en druk daarna op ALT + F11 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 en hernoem het met een celwaarde:
Sub Copyrenameworksheet()
'Updateby Extendoffice
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. Druk vervolgens op F5 om deze code uit te voeren. Uw huidige werkblad is gekopieerd naar het huidige werkboek, achter alle bestaande werkbladen, en hernoemd met de opgegeven celwaarde. Zie onderstaande afbeelding:
Opmerking: In de bovenstaande code is de celverwijzing A1 de celwaarde waarmee u het nieuw gekopieerde werkblad wilt hernoemen. U kunt deze naar wens aanpassen.
Kopieer een werkblad meerdere keren en hernoem het op basis van celwaarden met Kutools voor Excel
De bovenstaande code kan alleen hernoemen op basis van één celwaarde. Als u het werkblad meerdere keren moet kopiëren en hernoemen aan de hand van een lijst met celwaarden, helpt de functie Kutools voor Excel Create Sequence Worksheet u deze taak razendsnel uit te voeren.
Na installatie van Kutools voor Excelgaat u als volgt te werk:
1. Klik op KUTOOLS PLUS > Werkblad > Werkbladen met reeks maken. Zie de afbeelding hieronder:
2. Voer in het Create Sequence Worksheet-dialoogvenster de volgende handelingen uit:
(1.) Selecteer het Werkbladnaam dat u wilt kopiëren uit de Gebaseerd op werkbladvervolgkeuzelijst;
(2.) Selecteer de optie Gegevens binnen selectie onder de sectie Werkbladnaam gebaseerd op, en klik op de knop 
om de celwaarden te selecteren waaraan u de gekopieerde werkbladen wilt koppelen.
3. Klik daarna op de knop Ok. Het specifieke werkblad wordt vervolgens meerdere keren gekopieerd en hernoemd met de geselecteerde celwaarden in een nieuw werkblad. Zie onderstaande afbeelding:
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