Note: The other languages of the website are Google-translated. Back to English

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)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) 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 Koetools 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 pagina.
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.

Opmerkingen:

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 wilt hebben (30-dag) van dit hulpprogramma, 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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 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 honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (28)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik heb dit erin geplakt volgens de instructies, maar het verscheen niet in mijn lijst met beschikbare macro's. Ik heb geprobeerd het handmatig uit te voeren door de macronaam in te toetsen. Toen het probeerde om de macro uit te voeren, kwam er een foutmelding "Argument geen optioneel".

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Als niet snijden (doel, bereik ("A1")) is niets dan
ActiveSheet.Name = ActiveSheet.Bereik ("A1")
End If
End Sub

Heeft iemand anders deze code uitgevoerd en hetzelfde probleem gehad?

Als test heb ik meer basiscode uitgevoerd en het werkte prima, dus de waarde in "A1" veroorzaakt het probleem niet. Wanneer ik de onderstaande code uitvoer, zie ik de macronaam "myTabName" in de macrolijst. De bovenstaande code verschijnt niet en ik neem aan dat dit komt door het argument bug/missing.

Sub mijnTabNaam()
ActiveSheet.Name = ActiveSheet.Bereik ("A1")
End Sub

Bedankt voor je hulp, want ik zou de code graag gebruiken zoals bedoeld voor het automatiseren van wijzigingen in de naam van een tabblad op basis van een celwaarde.
Deze opmerking is gemaakt door de moderator op de site
Beste Jason,
De code werkt in mijn geval goed. Zou u alstublieft uw Office-versie willen verstrekken? Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Hallo Kristal,

Het werkte ook niet voor mij, zou het kunnen zijn omdat de cel waarnaar ik verwijs een formule is?

Bedankt voor het antwoorden
Deze opmerking is gemaakt door de moderator op de site
Hoi Mei,

Bedankt voor je feedback. Het probleem werd veroorzaakt door de formule. De code is aangepast. Probeer het alsjeblieft.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik krijg deze code aan het werk, maar het werkt niet automatisch de naam van het tabblad bij wanneer de cel waaruit het de naam haalt als naar een andere cel wordt verwezen (en die cel verandert).


Dat wil zeggen, ik verander een cel in een hoofdlijst, die de celtekst in een specifieke cel op elk tabblad verandert, waarnaar de code verwijst als de naam van het tabblad, MAAR het tabblad werkt zijn naam niet dienovereenkomstig bij.
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
De volgende VBA-code kan uw probleem oplossen. Bedankt voor je reactie1

Particulier subwerkblad_Wijziging (ByVal-doel als bereik)
Dim xRg als bereik, xCell als bereik
On Error Resume Next
Als niet snijden (doel, bereik ("A1")) is niets dan
ActiveSheet.Name = ActiveSheet.Bereik ("A1")
End If
Application.EnableEvents = False
Stel xRg = ActiveSheet.Range ("A1") in. Precedenten
Als niet xRg niets is, dan
Voor elke xCell In xRg
ActiveSheet.Name = ActiveSheet.Bereik ("A1")
Volgende
End If
Application.EnableEvents = Waar
End Sub
Deze opmerking is gemaakt door de moderator op de site
Werkt nog steeds niet. Ik heb hetzelfde probleem als jJJ. crystal: Staat de hele code in je antwoord?
De laatste regel die in uw opmerking wordt weergegeven, is "Set xRg = ActiveSheet.Range("A1").Precedents"
Deze opmerking is gemaakt door de moderator op de site
Beste JAS,
Klik op de Lees meer-knop aan de rechterkant van de opmerking om de hele opmerking weer te geven.
Deze opmerking is gemaakt door de moderator op de site
Heb nog steeds hetzelfde probleem.

Ik heb A1 van het nieuwe blad naar een andere cel op een ander tabblad wijzen. Het wordt de eerste keer bijgewerkt (wanneer u het uitvoert) maar verandert daarna niet bij het bewerken van de hoofdcel
Deze opmerking is gemaakt door de moderator op de site
Private Sub Worksheet_SelectionChange (ByVal Target As Excel.Range)
Stel doel = bereik ("A1") in
Als Doel = "" Verlaat Sub
Bij fout Ga naar slechte naam
ActiveSheet.Name = Links (Doel, 31)
Exit Sub
Slechte naam:
MsgBox "Wijzig de invoer in A1." & Chr(13) _
& "Het lijkt een of meer te bevatten " & Chr(13) _
& "illegale karakters." & Chr(13)
Bereik ("A1"). Activeren
End Sub
Deze opmerking is gemaakt door de moderator op de site
Het probleem is nog steeds hetzelfde, het verandert de eerste keer. wanneer ik die cel aan een ander blad koppel en het verander, wordt het niet automatisch gewijzigd
Deze opmerking is gemaakt door de moderator op de site
Ik moet deze code gebruiken, maar ik heb nog nooit vba-code ingevoerd. Om het even welke begeleiding zou worden gewaardeerd.
Deze opmerking is gemaakt door de moderator op de site
Ik verander een cel in een hoofdlijst, die de celtekst in een specifieke cel op elk tabblad verandert, waarnaar de code verwijst als de naam van het tabblad, MAAR het tabblad werkt zijn naam niet dienovereenkomstig bij.

---- het is geen werk
Deze opmerking is gemaakt door de moderator op de site
Ik heb de hele code, en het werkte. Heel erg bedankt voor uw hulp!
Deze opmerking is gemaakt door de moderator op de site
Beste JAS,
Ik ben blij dat ik kon helpen.
Deze opmerking is gemaakt door de moderator op de site
U kunt liever een eenvoudige macro gebruiken



Sub Macro3 ()
Dim-index als geheel getal
Voor index = 1 tot 18

Bladen(index).Naam = Bladen(index).Bereik("A2").Waarde

Volgende index



End Sub
Deze opmerking is gemaakt door de moderator op de site
Good Day,
Dank je wel voor het delen.
Deze opmerking is gemaakt door de moderator op de site
Dit is precies wat ik nodig heb, maar ik heb het tabblad nodig om een ​​datum opnieuw te maken en het werkt niet... Ik neem aan dat dit iets te maken heeft met de manier waarop Excel de datum en tijd uitwerkt, kan iemand een oplossing voorstellen?
Deze opmerking is gemaakt door de moderator op de site
Hoi Nick,
Excel biedt geen ondersteuning voor het typen van de bladnaam die speciale tekens bevat. Als de datum die u typt het teken / bevat, kunt u de bladnaam met die datum niet maken.
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik naar twee cellen verwijzen. bijvoorbeeld naam en id-nummer?
Deze opmerking is gemaakt door de moderator op de site
Ik gebruik uw exacte code uit het bovenstaande voor VBA-code die perfect werkt voor wat ik nodig heb. Ik heb echter een aantal macro's op een blad met de naam Taaksjabloon dat wordt gekopieerd en hergebruikt voor elke nieuwe taak. Ik heb al mijn macro's ontworpen op basis van een nieuwe gekopieerde versie genaamd Job Template (2). Zodra de bladnaam is gewijzigd in de nieuwe taaknaam, werken de macro's niet meer en moeten ze dit handmatig doen. Ik zou graag al mijn macroknoppen op elk moment willen gebruiken in plaats van ze alleen te gebruiken voordat ik de bladnaam verander.

Is er een manier waarop de VBA-code altijd naar de bladnaam kan verwijzen voordat de rest van de codefuncties wordt uitgevoerd?
Deze opmerking is gemaakt door de moderator op de site
Wat is het hoogste aantal werkbladen dat via Kutools Plus van naam kan worden gewijzigd? omdat de Excel me slechts 17 namen toestaat om te veranderen, en dat is alles
Deze opmerking is gemaakt door de moderator op de site
Dit werkte perfect voor mijn eerste werkblad, maar niet voor het tweede of derde enz. (Ik heb tot ongeveer 20 werkbladen die deze functie allemaal nodig hebben). Mis ik iets?
Deze opmerking is gemaakt door de moderator op de site
Hallo A Owen,
Deze code werkt slechts voor één werkblad per keer. Excuses voor het ongemak.
Deze opmerking is gemaakt door de moderator op de site
Hallo Kristal,

Wanneer ik in uw code plak, komt deze terug met de fout "door de gebruiker gedefinieerd type niet gedefinieerd"?

Bedankt.
Deze opmerking is gemaakt door de moderator op de site
Hallo TomJ,
Zorg ervoor dat deze drie opties zijn aangevinkt in het dialoogvenster Referenties - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Deze opmerking is gemaakt door de moderator op de site
werkte prachtig!
Deze opmerking is gemaakt door de moderator op de site
hello,
het is erg moeilijk om de app te gebruiken als de code vba après avoir collé is.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
merci
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL