Ga naar hoofdinhoud

Hoe kan ik bladen hernoemen op basis van celwaarden (uit de lijst) in Excel?

Het hernoemen van een enkel werkblad in Excel gebeurt meestal door met de rechtermuisknop op het tabblad van het blad te klikken en "Hernoemen" te kiezen in het contextmenu. Als u echter meerdere werkbladen moet hernoemen met waarden uit opgegeven cellen, of als u een werkblad een dynamische naam wilt geven op basis van de waarde van een specifieke cel, zijn er verschillende methoden die u kunt gebruiken. Dit artikel begeleidt u bij deze technieken, waardoor het proces eenvoudig en efficiënt wordt.


Hernoem een ​​blad dynamisch van celwaarde met VBA

We kunnen een werkblad dynamisch hernoemen van de waarde van een bepaalde cel met VBA in Excel, en dat kunt u als volgt doen:

Stap 1: Klik met de rechtermuisknop op de bladnaam van het werkblad dat u dynamisch wilt benoemen met een celwaarde, en selecteer Bekijk code vanuit het rechtsklikmenu.

Stap 2: In de opening Microsoft Visual Basic voor toepassingen venster, plak de volgende VBA-code in het modulevenster.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Tip: Deze VBA hernoemt het werkblad dynamisch op basis van de waarde in cel A1. U kunt "A1" naar andere cellen wijzigen op basis van uw behoeften.

Stap 3: Sla de VBA-code op en sluit het Microsoft Visual Basic voor toepassing venster.

Vervolgens ziet u dat de bladnaam dynamisch wordt gewijzigd op basis van de opgegeven celwaarde.

Opmerkingen:

  • Als de opgegeven cel leeg is, wordt de naam van het werkblad niet gewijzigd.
  • Elke keer dat u de waarde in de opgegeven cel wijzigt, wordt de naam van het werkblad gewijzigd.
  • Als u speciale tekens in de opgegeven cel typt, zoals *, verschijnt er een foutmelding.

Hernoem meerdere bladen op basis van celwaarden in overeenkomstige bladen

Met de hierboven beschreven methode kunt u blad voor vel hernoemen. Echter, door gebruik te maken van de Hernoem meerdere werkbladen kenmerk van Kutools for Excel, kunt u snel alle of meerdere bladen hernoemen op basis van de waarde van een opgegeven cel in elk corresponderend blad. U kunt bijvoorbeeld elk blad een andere naam geven, zodat deze overeenkomt met de waarde in cel A1 van dat specifieke blad.

Kutools for Excel - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Download nu!

  1. Klik Koetools Plus > Werkblad > Hernoem werkbladen. Zie screenshot:
  2. In de opening Hernoem meerdere werkbladen dialoogvenster, doe dan als volgt:
    1. In het werkbladen lijst, controleer de werkbladen waarvan u de naam wilt wijzigen.
    2. In het Hernoem opties sectie, controleer de Vervang de originele bladnaam optie.
    3. In het Nieuwe werkbladnaam sectie, controleer dan de Hernoem werkbladen met een specifieke cel optie en geef de cel op waarvan u de inhoud wilt hernoemen naar het overeenkomstige blad.
    4. Klik op de Ok knop.

En nu worden alle aangevinkte bladen hernoemd op basis van de opgegeven cel van elk blad. Zie schermafbeelding:

Opmerking: Wilt u toegang krijgen tot de Hernoem meerdere werkbladen functie? Downloaden Kutools for Excel nu! Daarnaast beschikt Kutools over nog meer dan 300 andere functies en biedt het een gratis proefperiode van 30 dagen. Wacht niet, probeer het vandaag nog!


Hernoem meerdere bladen uit de opgegeven lijst

Kutools voor Excel's Hernoem meerdere werkbladen functie ondersteunt ook het hernoemen van meerdere bladen op basis van celwaarden in een opgegeven lijst.

Kutools for Excel - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Download nu!

  1. Klik Koetools Plus > Werkblad > Hernoem werkbladen.
  2. In de opening Hernoem meerdere werkbladen dialoogvenster, configureer als volgt:
    1. In het werkbladen lijst, selecteert u de werkbladen waarvan u de naam wilt wijzigen.
    2. In het Hernoem opties sectie, controleer de Vervang de originele bladnaam optie.
    3. In het Nieuwe werkbladnaam sectie, controleer de Van specifiek bereik optie en klik op de  knop om de tweede te openen Hernoem meerdere werkbladen dialoogvenster (zie de rechter schermafbeelding). Selecteer vervolgens de lijst met cellen waarvan u de naam wilt wijzigen op basis van hun waarden, en klik op de OK knop.
    4. Klik op de Ok knop om het hernoemen toe te passen.

Vervolgens ziet u dat de namen van alle aangevinkte werkbladen worden vervangen door de celwaarden in de opgegeven lijst. Zie onderstaande schermafbeelding:

Opmerking: Wilt u toegang krijgen tot de Hernoem meerdere werkbladen functie? Downloaden Kutools for Excel nu! Daarnaast beschikt Kutools over nog meer dan 300 andere functies en biedt het een gratis proefperiode van 30 dagen. Wacht niet, probeer het vandaag nog!


Demo: naambladen op basis van celwaarden (uit lijst) in Excel


Kutools for Excel: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

Gerelateerde artikelen:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations