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.

Lees verder... Gratis download... Aankoop...

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!

Lees verder... Gratis download... Aankoop...

Heb je vragen? Stel ze hier. (28)

Nog geen beoordelingen. Beoordeel als eerste!

Jason

ongeveer 5 jaar geleden

#21450

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.

Antwoorden

crystal Jason

ongeveer 5 jaar geleden

#21451

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.

Antwoorden

Rapport

mei1 crystal

ongeveer 2 weken geleden

#42601

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

Antwoorden

crystal mei1

ongeveer 2 dagen geleden

#42878

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

Antwoorden

Rapport

jJJ

ongeveer 5 jaar geleden

#21710

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.

Antwoorden

Rapport

crystal jJJ

ongeveer 5 jaar geleden

#21711

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

Antwoorden

Rapport

JAS crystal

ongeveer 5 jaar geleden

#21712

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"

Antwoorden

crystal JAS

ongeveer 5 jaar geleden

#21713

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.

Antwoorden

Rapport

Alex crystal

ongeveer 5 jaar geleden

#21714

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

Antwoorden

Rj Alex

ongeveer 3 jaar geleden

#21715

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

Shadab crystal

ongeveer 4 maanden geleden

#39971

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

Antwoorden

John Hammonds crystal

ongeveer 4 jaar geleden

#21716

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.

Antwoorden

NOOR crystal

ongeveer 3 jaar geleden

#21717

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

Antwoorden

JAS

ongeveer 5 jaar geleden

#21987

Deze opmerking is gemaakt door de moderator op de site

Ik heb de hele code, en het werkte. Heel erg bedankt voor uw hulp!

Antwoorden

crystal JAS

ongeveer 5 jaar geleden

#21988

Deze opmerking is gemaakt door de moderator op de site

Beste JAS,
Ik ben blij dat ik kon helpen.

Antwoorden

Rapport

Nilanjan Pal

ongeveer 5 jaar geleden

#22475

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

Antwoorden

crystal Nilanjan Pal

ongeveer 5 jaar geleden

#22476

Deze opmerking is gemaakt door de moderator op de site

Good Day,
Dank je wel voor het delen.

Antwoorden

Rapport

NickP84

ongeveer 2 jaar geleden

#32436

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?

Antwoorden

Rapport

crystal NickP84

ongeveer 2 jaar geleden

#32437

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.

Antwoorden

Rapport

Dan

ongeveer 2 jaar geleden

#33150

Deze opmerking is gemaakt door de moderator op de site

Hoe kan ik naar twee cellen verwijzen. bijvoorbeeld naam en id-nummer?

Antwoorden

Scott Keller

ongeveer 2 jaar geleden

#34080

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?

Antwoorden

Rapport

Remi

ongeveer 1 jaar geleden

#35262

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

Antwoorden

Een Owen

ongeveer 7 maanden geleden

#38324

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?

Antwoorden

crystal Een Owen

ongeveer 7 maanden geleden

#38379

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.

Antwoorden

Rapport

Tom J

ongeveer 4 maanden geleden

#40075

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.

Antwoorden

crystal Tom J

ongeveer 4 maanden geleden

#40122

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

Antwoorden

Rapport

Christoffel Ward

ongeveer 3 maanden geleden

#40828

Deze opmerking is gemaakt door de moderator op de site

werkte prachtig!

Antwoorden

Yas

ongeveer 3 maanden geleden

#40992

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

Antwoorden

Er zijn nog geen reacties geplaatst

Laat uw commentaar

Posten als gast

Inloggen

Naam (verplicht)

E-mail (Verplicht)

Beoordeel dit bericht:

Reset

0 Personages

Ik ga akkoord met de bepalingen en voorwaarden