Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe maak je de naam van het bladtabblad gelijk aan de celwaarde in Excel?

In sommige gevallen moet u de naam van een werkblad wijzigen op basis van een opgegeven celwaarde. In dit artikel laten we u methoden zien om de naam van het bladtabblad gelijk te maken aan de celwaarde in Excel.

Maak de bladtabnaam gelijk aan de celwaarde met VBA-code
Maak de bladtabnaam gelijk aan de celwaarde met Kutools voor Excel


Maak de bladtabnaam gelijk aan de celwaarde met VBA-code

Met de volgende VBA-code kunt u de naam van het bladtabblad automatisch gelijk maken aan de celwaarde.

1. Klik met de rechtermuisknop op de bladtab waarvan u de bladnaam gelijk wilt maken aan de celwaarde, en klik vervolgens op Bekijk code vanuit het rechtsklikmenu. Zie screenshot:

2. Kopieer en plak onderstaande code in het codevenster en druk op anders + Q toetsen tegelijkertijd om het venster Microsoft Visual Basic for Applications te sluiten.

VBA-code: maak de bladtab gelijk aan de celwaarde

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

Opmerking:: In de code is A1 de cel die de waarde bevat die u als bladnaam moet gebruiken. U kunt het naar behoefte wijzigen.

Vanaf nu, wanneer de waarde in cel A1 is gewijzigd, wordt de naam van de bladtab ook op dezelfde manier gewijzigd.


Maak de bladtabnaam gelijk aan de celwaarde met Kutools voor Excel

In deze sectie stellen we u de Hernoem meerdere werkbladen nut van Kutools for Excel. Met dit hulpprogramma kunt u eenvoudig werkbladen hernoemen met de waarde van een bepaalde cel in Excel.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. klikken Kutools Plus > Werkblad > Hernoem meerdere werkbladen. Zie screenshot:

2. In de Hernoem meerdere werkbladen dialoogvenster, moet u het volgende doen.

1). Controleer de werkbladnamen die u wilt hernoemen in het werkbladen box (u kunt een blad of meerdere bladen selecteren).
2). Selecteer Vervang de originele bladnaam box aan de Hernoem opties sectie.
3). Als u een werkblad of meerdere werkbladen met de opgegeven celwaarde wilt hernoemen, selecteert u het Van specifiek assortiment optie en selecteer het celbereik waarvan u de naam van de bladen wilt wijzigen op basis van.
4). Klik op de OK knop. Zie screenshot:

U kunt zien dat de geselecteerde werkbladen onmiddellijk worden hernoemd met de opgegeven bereikwaarde, zoals hieronder wordt getoond.

Notes:

1. U kunt de Filteren functie om eenvoudig het benodigde werkblad eruit te filteren als er veel werkbladen zijn.
2. Als u meerdere werkbladen wilt hernoemen met een bepaalde celwaarde in elk blad. Sheet1 is bijvoorbeeld gelijk aan de waarde van cel A1 en sheet2 is ook gelijk aan de waarde van cel A1. Selecteer werkbladen in het werkbladen box en selecteer vervolgens het Hernoem werkbladen met een specifieke cel optie en specificeer cel A1 in het vak.

3. De bladnaam wordt niet automatisch gewijzigd als de celwaarde verandert.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Maak de bladtabnaam gelijk aan de celwaarde met Kutools voor Excel


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren 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. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
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.
    Remi · 5 months ago
    What is the highest nr of worksheets, that can be changed names via Kutools Plus?  because the excel letting me only 17 names to changes, and that's it 
  • To post as a guest, your comment is unpublished.
    Skottle · 1 years ago
    I'm using your exact code from the above for VBA code which works perfectly for what I need. However, I have a bunch of macros on a sheet called Job Template that gets copied and reused for every new job. I designed all my macros based on a new copied version called Job Template (2). Once the sheet name is changed to the new job name, the macros no longer work and have to manually do it. I would like to be able to use any of my Macro buttons at any point instead of only using them before I change the sheet name.

    Is there a way for the VBA code to always refer to the sheet name before running the rest of the code functions?
  • To post as a guest, your comment is unpublished.
    dan · 1 years ago
    How can I reference two cells. for example name and id number?
  • To post as a guest, your comment is unpublished.
    NickP84 · 1 years ago
    This is exactly what I need, but I need the tab to recreate a date and it isn't working... I assume this is something to do with the way excel works out date and time, can anyone suggest a workaround?
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Nick,
      Excel does not support typing the sheet name containing special characters. If the date you type contains the character /, it won't allow you to create the sheet name with that date.
  • To post as a guest, your comment is unpublished.
    Nilanjan Pal · 3 years ago
    You can rather use simple macro



    Sub Macro3()
    Dim index As Integer
    For index = 1 To 18

    Sheets(index).Name = Sheets(index).Range("A2").Value

    Next index



    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Good Day,
      Thank you for sharing.
  • To post as a guest, your comment is unpublished.
    JAS · 3 years ago
    I got the whole code, and it worked. Thank you so much for your help!
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Dear JAS,
      I’m glad I could help.
  • To post as a guest, your comment is unpublished.
    JJ · 4 years ago
    I am getting this code to work, but it does not automatically update the tab name when the cell it pulls the name from if referencing another cell (and that cell changes).


    I.e. I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      Good day,
      The following VBA code can solve your problem. Thank you for your comment1

      Private Sub Worksheet_Change(ByVal Target As Range)
      Dim xRg As Range, xCell As Range
      On Error Resume Next
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      ActiveSheet.Name = ActiveSheet.Range("A1")
      End If
      Application.EnableEvents = False
      Set xRg = ActiveSheet.Range("A1").Precedents
      If Not xRg Is Nothing Then
      For Each xCell In xRg
      ActiveSheet.Name = ActiveSheet.Range("A1")
      Next
      End If
      Application.EnableEvents = True
      End Sub
      • To post as a guest, your comment is unpublished.
        NOOR · 2 years ago
        I change a cell in a master list, which changes the cell text in a specific cell on each tab, which the code is referencing as the tab name, BUT the tab doesn't update its name correspondingly.

        ---- it's not work
      • To post as a guest, your comment is unpublished.
        John Hammonds · 2 years ago
        I need to use this code but I've never entered vba code before. Any guidance would be appreciated.
      • To post as a guest, your comment is unpublished.
        JAS · 3 years ago
        Still doesn't work. I'm having the same issue as jJJ. crystal: Is the whole code shown in your reply?
        The last line shown in your comment is "Set xRg = ActiveSheet.Range("A1").Precedents"
        • To post as a guest, your comment is unpublished.
          crystal · 3 years ago
          Dear JAS,
          Please click the Read more button on the right side of the comment to display the whole comment.
          • To post as a guest, your comment is unpublished.
            Alex · 3 years ago
            Still have the same issue.

            I have A1 of the new sheet point to another cell in a different tab. It updates the first time (when you execute) but then no change when editing the master cell
            • To post as a guest, your comment is unpublished.
              Rj · 2 years ago
              Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
              Set Target = Range("A1")
              If Target = "" Then Exit Sub
              On Error GoTo Badname
              ActiveSheet.Name = Left(Target, 31)
              Exit Sub
              Badname:
              MsgBox "Please revise the entry in A1." & Chr(13) _
              & "It appears to contain one or more " & Chr(13) _
              & "illegal characters." & Chr(13)
              Range("A1").Activate
              End Sub
  • To post as a guest, your comment is unpublished.
    Jason · 4 years ago
    I pasted this in as instructed but it didn't show up in my list of available Macros. I tried to manually run it by keying in the Macro name. When it attempted to run the Macro, an error message came up "Argument no optional".

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
    ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
    End Sub

    Has anyone else run this code and had the same issue?

    As a test I ran more basic code and it worked fine so the value in "A1" isn't causing the problem. When I run the code below I can see the Macro name "myTabName" in the Macro list. The code above doesn't appear and I'm assuming this is because of the bug/missing argument.

    Sub myTabName()
    ActiveSheet.Name = ActiveSheet.Range("A1")
    End Sub

    Thanks for your help as I'd very much like to use the code as intended for automating tab name changes based on a cell value..
    • To post as a guest, your comment is unpublished.
      crystal · 4 years ago
      Dear Jason,
      The code works well in my case. Would you please provide your Office version? Thank you for your comment.