Stap voor stap: Naam van Excel-blad wijzigen met celinhoud met behulp van Macro

  • Artikel
  • Van toepassing op:
    Excel for Microsoft 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Excel 2007, Excel 2003

Dit artikel is geschreven door Raddini Rahayu, Microsoft MVP.

Geval

Hier volgen wekelijkse rapporten over verkoopactiviteiten. In dit geval zijn er bijvoorbeeld 15 personen. Nancy, de beheerder rapporteert, krijgt een samenvatting van elke verkoopgegevens toegewezen in één bestand waarin alle verkopen op elk blad worden gescheiden. Voor het eenvoudig rangschikken van gegevens komt elk blad dat Nancy de naam gaf overeen met de verkoopnaam op dat blad. Nancy voelt zich hier in eerste instantie prettig bij, maar omdat er meer gegevens en snelle verwerking nodig zijn, was Nancy zo overweldigd. Om dit te verhelpen, wil Nancy dat de naambladen automatisch worden gewijzigd op basis van de verkoopnaam op elk blad zonder de naam ervan handmatig te wijzigen.

Schermopname van de wekelijkse rapporten over verkoopactiviteiten.

Oplossingen

De beste oplossingen om het probleem van Nancy op te lossen, is door macro te gebruiken. Deze macro is ontworpen voor elk blad in dat bestand, ongeacht het aantal bladen. De naam van elk blad wordt gewijzigd op basis van de verkoopnaam die op dezelfde locatie op elk blad is bepaald.

Uitvoeren

Eerste stap

  • Rapportindelingen ontwerpen en de cellocatie opgeven waar de verkoopnaam wordt geplaatst. In dit geval bevindt de locatie zich in cel J2. Deze rapportindeling moet op elk blad hetzelfde zijn.

  • Behoud de bladnamen op de standaardnaam (Blad1, Blad2, Blad3, enzovoort).

    Schermopname om de bladnamen op de standaardnaam te houden.

Laatste stap

Macrocoderingsstap

Nadat we de cellocatie weten waar de verkoopnaam wordt geplaatst, kunnen we nu doorgaan met de volgende stap, Macrocodering.

  1. Selecteer op het tabblad Ontwikkelaarsde optie Visual Basic in codecategorie of druk op toetscombinatie Alt+F11 op het toetsenbord, zodat het Venster Visual Basic wordt weergegeven.

    Schermopname om Visual Basic te selecteren in de categorie Code op het tabblad Ontwikkelaars.

  2. Klik in het taakvenster van het project op (Werkmapnaam), selecteer module in het menu Invoegen en schrijf het volgende script:

    Sub RenameSheet()

Dim rs As Worksheet

For Each rs In Sheets
rs.Name = rs.Range("B5")
Next rs

End Sub

    Schermopname van de stappen voor het schrijven van het script in de werkmap Sales Report.xlsx.

  3. Druk op F5 op het toetsenbord als er geen foutopsporing is, sluit u het Visual Basic-venster en gaat u terug naar Excel. Als er fouten zijn opgespoord, controleert u het script.

  4. Ga terug naar Excel en kijk wat er gebeurt. Als de codes juist zijn, wordt de naam van elk blad gewijzigd in overeenstemming met de bestaande verkoopnaam op elk blad.

    Schermopname waarin de naam van elk blad wordt gewijzigd volgens de bestaande verkoopnaam op elk blad.

Dat is alles. Hopelijk nuttig.

Disclaimerinformatie van derden

De producten van derden die in dit artikel worden vermeld, worden vervaardigd door bedrijven die onafhankelijk zijn van Microsoft. Microsoft verleent dan ook geen enkele garantie, impliciet noch anderszins, omtrent de prestaties of de betrouwbaarheid van deze producten.