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

or

Hoe voeg ik een nieuw blad toe met een specifieke naam in Excel?

Soms wilt u een nieuw blad maken en het automatisch een naam geven met een specifieke naam in Excel. In dit artikel laten we u twee methoden zien voor het toevoegen van een nieuw blad met een specifieke naam in de huidige werkmap, evenals het maken van een werkblad met een specifieke naam in een nieuwe werkmap in Excel.

Automatisch nieuw blad met specifieke naam toevoegen in huidige werkmap met VBA-code

Automatisch nieuw blad toevoegen met specifieke naam in een nieuwe werkmap met Kutools voor Excel

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel - De beste Office-productiviteitstool lost de meeste van uw Excel-problemen op
  • Alles hergebruiken: Voeg de meest gebruikte of complexe formules, grafieken en al het andere toe aan uw favorieten en hergebruik ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen zonder gegevens te verliezen; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

Automatisch nieuw blad met specifieke naam toevoegen in huidige werkmap met VBA-code


U kunt aan het einde van de huidige werkmap een nieuw blad met bepaalde naam toevoegen met de volgende VBA-code.

1. druk op anders + F11 toetsen tegelijkertijd om de Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module.

3. Kopieer en plak onder VBA-code in de module venster.

VBA-code: voeg een nieuw blad met een specifieke naam toe aan het einde van de huidige werkmap

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. druk op F5 sleutel om de code uit te voeren. In het opduiken Kutools for Excel dialoogvenster, voer een naam in voor dit blad en klik op de OK knop. Zie screenshot:

Vervolgens wordt een nieuw werkblad met een specifieke naam gemaakt en aan het einde van de huidige werkmap geplaatst.


Automatisch nieuw blad toevoegen met specifieke naam in een nieuwe werkmap met Kutools voor Excel

In dit gedeelte introduceren we de Maak werkbladen voor het maken van reeksen nut van Kutools for Excel. Met dit hulpprogramma kunt u eenvoudig nieuw blad met een specifieke naam toevoegen in een nieuwe werkmap.

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

1. Voor het toevoegen van een nieuw blad met een specifieke naam, moet u deze naam van tevoren in een cel typen. En klik vervolgens op Enterprise > Werkblad > Maak werkbladen voor het maken van reeksen. Zie screenshot:

2. In de Maak werkbladen voor het maken van reeksen dialoogvenster, selecteer Leeg werkblad in de Basis werkblad vervolgkeuzelijst, selecteer Datain een bereik en geef de cel op die de naam van het bepaalde werkblad bevat en klik ten slotte op OK knop. Zie screenshot:

Vervolgens wordt onmiddellijk een nieuw werkblad met deze specifieke naam uit een cel in een nieuwe werkmap gemaakt.

Notes:

1. Als u meerdere nieuwe bladen met specifieke namen tegelijkertijd wilt maken, voert u deze namen één voor één in cellen in en selecteert u deze cellen in de Gegevens in een bereik doos.

2. U kunt hiermee ook sequentielijstbladen van een reeksnummers of een aangepaste lijst maken Maak werkbladen voor het maken van reeksen nut. Zie screenshot:

Tip.Als u een gratis proefversie van dit hulpprogramma wilt hebben, gaat u naar download de software vrij eerst en vervolgens de bewerking volgens de bovenstaande stappen toepassen.


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.
    guest · 1 years ago
    Hi, this does not properly account for user clicking cancel. It still creates worksheet.
    • To post as a guest, your comment is unpublished.
      crystal · 11 months ago
      Hi
      The code has been updated with the problem solving. Please have a try and thanks for your comment.
  • To post as a guest, your comment is unpublished.
    Lowri · 1 years ago
    Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

    Thanks
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Good day,
      Please try the below VBA code. Hope it can help. Thanks for your comment.

      Sub CreateSheet()
      Dim xName As String
      Dim xSht As Object
      Dim xNWS As Worksheet
      On Error Resume Next
      xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
      If xName = "" Then Exit Sub
      Set xSht = Sheets(xName)
      If Not xSht Is Nothing Then
      MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
      Exit Sub
      End If
      ActiveSheet.Copy after:=Sheets(Sheets.count)
      Set xNWS = Sheets(Sheets.count)
      xNWS.Name = xName
      End Sub
      • To post as a guest, your comment is unpublished.
        Lowri · 11 months ago
        Thank you for your reply crystal! I have it working now :)