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

or

Hoe maak ik de bladtabnaam gelijk aan de celwaarde in Excel?

In sommige gevallen moet u mogelijk een werkblad hernoemen op basis van een opgegeven celwaarde. In dit artikel laten we u methoden zien om de bladtabnaam gelijk te maken aan de celwaarde in Excel.

Maak bladtabnaam gelijk aan de celwaarde met VBA-code

Maak bladtabnaam gelijk aan de celwaarde met Kutools voor Excel


Maak eenvoudig een bladindex door alle bladnamen in Excel op te sommen:

Klik op Kutools Plus> Werkblad > Lijst met bladnamen maken om eenvoudig alle werkbladnamen in een nieuw werkblad in Excel op te sommen. En u kunt direct naar het overeenkomstige werkblad gaan door op de bladnaam te klikken.

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

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken 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 en gegevens bewaren; 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.

pijl blauwe rechterbel Maak bladtabnaam gelijk aan de celwaarde met VBA-code


Met de volgende VBA-code kunt u de bladtabnaam automatisch gelijk maken aan de celwaarde.

1. Klik met de rechtermuisknop op het bladtabblad 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 vervolgens op anders + Q toetsen tegelijkertijd om het venster Microsoft Visual Basic for Applications te sluiten.

VBA-code: maak 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

Notes: In de code is A1 de cel die de waarde bevat die u als bladnaam moet gebruiken. Je kunt het veranderen zoals je nodig hebt.

Vanaf nu, wanneer de waarde in cel A1 is gewijzigd, zal de bladtabnaam ook gelijk worden gewijzigd.


pijl blauwe rechterbel Maak bladtabnaam gelijk aan de celwaarde met Kutools voor Excel

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

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

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

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

1). Controleer de werkbladnamen die u wilt hernoemen in de werkbladen vak (u kunt één blad of meerdere bladen selecteren).

2). kiezen Vervang de originele bladnaam box aan de Opties hernoemen sectie.

3). Als u een werkblad of meerdere werkbladen met de opgegeven waarde van de cel wilt hernoemen, selecteert u de Van specifiek bereik optie en selecteer het cellenbereik waarvan u de vellen wilt hernoemen op basis van.

3). Klik op de OK knop. Zie screenshot:

U ziet dat de geselecteerde werkbladen onmiddellijk worden hernoemd naar de opgegeven bereikwaarde, zoals hieronder wordt getoond.

Notes:

1. U kunt de filters functie om eenvoudig het benodigde werkblad te filteren als er veel werkbladen aanwezig zijn.

2. Als u meerdere werkbladen met een bepaalde celwaarde in elk blad wilt hernoemen. Sheet1 is bijvoorbeeld gelijk aan de waarde van A1 in de cel en sheet2 is ook gelijk aan de waarde van A1 in de cel. Selecteer werkbladen in de werkbladen in het vak en selecteer het Werkbladen wijzigen met specifieke cel optie en geef cel A1 op in het vak.

3. De bladnaam wordt niet automatisch gewijzigd als de waarde van de cel verandert.


pijl blauwe rechterbel Maak bladtabnaam gelijk aan de celwaarde met Kutools voor Excel

Kutools for Excel bevat meer dan handige Excel-gereedschappen van 300. Gratis om te proberen zonder beperking in 60-dagen. Download de gratis proefversie nu!


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

  • 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 en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... 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 ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • 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. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. 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.
    Nilanjan Pal · 1 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.
    JAS · 1 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.
    jJJ · 1 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 · 1 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 · 5 months 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 · 6 months 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 · 1 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 · 1 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 · 1 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 · 19 days 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 · 1 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 · 1 years ago
      Dear Jason,
      The code works well in my case. Would you please provide your Office version? Thank you for your comment.