VBA Rename Sheet

VBA Rename Sheet – Voorbeeld # 1

Hoewel het ook zeer eenvoudig is om elk Excel-werkblad te hernoemen met de hulp van VBA. Er zijn vele manieren om dat te doen ook. Hier is de naam van ons werkblad standaard ingesteld op “Sheet1”, zoals hieronder te zien is, die we gaan hernoemen.

Stap 1: Voor dit voorbeeld hebben we een module nodig waarin we de codering gaan uitvoeren. Ga naar het menu Invoegen en selecteer Module zoals hieronder getoond.

Stap 2: Schrijf nu in de nieuw geopende Module de subcategorie in de naam van VBA Rename Sheet of in een andere naam.

Code:

Sub VBA_RenameSheet()End Sub

Stap 3: Definieer nu een variabele met een willekeurige naam en wijs deze toe aan Worksheet datatypes zoals hieronder getoond. Hier hebben we het de naam “Sheet” gegeven.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

Stap 4: Selecteer met behulp van de opdracht Set de Sheet-variabele zoals hieronder afgebeeld.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet =End Sub

Step 5: Selecteer het werkblad dat u wilt hernoemen met behulp van de opdracht Worksheet.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")End Sub

Step 6: Gebruik nu de functie Sheet in combinatie met Name en geef het werkblad de naam die u wilt hernoemen. Hier kiezen we voor “hernoemd blad”.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")Sheet.Name = "Renamed Sheet"End Sub

Step 7: Nu moet de code eindelijk worden gecompileerd en uitgevoerd als er een fout is gevonden. Om de code uit te voeren, klik op de knop Afspelen onder de menubalk zoals hieronder getoond. We zullen zien dat ons werkblad wordt hernoemd van Blad1 naar Hernoemd Blad, zoals hieronder wordt getoond.

VBA Hernoem Blad – Voorbeeld #2

In dit voorbeeld zullen we een veel eenvoudigere manier zien om een werkblad te hernoemen met behulp van een VBA-macro. Hiervoor hebben we een nieuwe module nodig.

Stap 1: Open een module en schrijf de subcategorie van VBA Rename zoals hieronder getoond.

Code:

Sub VBA_RenameSheet1()End Sub

Stap 2: Selecteer het werkblad dat we willen hernoemen met de functie Select. Hier is ons blad Blad1.

Code:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectEnd Sub

Stap 3: Overweeg in de volgende regel de functie Naam met het geselecteerde blad, zoals hieronder getoond.

Code:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name =End Sub

Stap 4: Kies de naam die we willen geven nadat we het blad een nieuwe naam hebben gegeven. We kiezen dezelfde naam als in voorbeeld 1, namelijk “hernoemd blad”

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name = "Renamed Sheet"End Sub

Stap 5: Compileer de code opnieuw en voer hem uit. We zullen zien dat sheet1 een nieuwe naam krijgt, namelijk “hernoemd blad”.

VBA-blad hernoemen – voorbeeld #3

Er is nog een vergelijkbare manier om een Excel-werkblad een nieuwe naam te geven met behulp van VBA. Dit lijkt een beetje op het proces dat we in voorbeeld 2 hebben gezien, maar is veel gemakkelijker te onthouden en te verwerken.

Stap 1: Open een module en schrijf de nieuwe subcategorie van VBA Rename Sheet zoals hieronder wordt getoond.

Code:

Sub VBA_RenameSheet2()End Sub

Step 2: Selecteer het blad dat we willen hernoemen. Hier kunnen we het blad selecteren door de opeenvolging van Blad tussen haakjes te zetten zoals hieronder getoond. We hoeven dus niet de naam van het te hernoemen blad te schrijven. Alleen de volgorde van dat blad zou werken.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Stap 3: Beschouw in de volgende regel de functie Name met de geselecteerde bladreeks zoals hieronder getoond.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name =End Sub

Stap 4: Voer nu de naam in die we aan het geselecteerde Blad1 willen geven. Laten we de naam die we in de bovenstaande voorbeelden hebben gezien, beschouwen als “hernoemd Blad”.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name = "renamed Sheet"End Sub

Stap 5: Nu compileert u de code opnieuw en voert u deze uit. We zullen zien dat Blad1 nu opnieuw wordt hernoemd naar “hernoemd Blad”, zoals hieronder te zien is.

VBA Hernoem Blad – Voorbeeld #4

In dit voorbeeld zullen we zien hoe we elk werkblad kunnen hernoemen met slechts één regel code.

Stap 1: Open een module en schrijf de subcategorie van VBA Hernoem Blad zoals hieronder te zien is.

Code:

Sub VBA_RenameSheet3()End Sub

Step 2: Selecteer de bladreeks die we willen hernoemen samen met de functie Naam en geef een naam waarmee we dat blad willen hernoemen, zoals hieronder wordt getoond.

Code:

Sub VBA_RenameSheet3()Sheets(1).Name = "rename Sheet"End Sub

Step 3: Voer nu eenvoudigweg de code uit om deze te implementeren. We zullen opnieuw zien dat Blad1 nu wordt hernoemd als “Blad hernoemen”

Voors van Excel VBA Blad hernoemen

• Als we meerdere bladen hebben die moeten worden hernoemd, is het gebruik van VBA-code veel beter dan het handmatige proces.
• We kunnen de naam van een Excel-werkblad te wijzigen door een regel VBA-code die we hebben gezien in voorbeeld-4.
• Hoewel handmatig wijzigen van de naam van een blad is ook een eenvoudige manier om het te doen. Maar VBA Rename Sheet is heel handig als we een nieuw blad en we willen dat te scheiden van andere bladen alleen maar om het te categoriseren.

Dingen om te onthouden

• Om een beter zicht op veranderingen gebeuren te krijgen, houden VBA-venster parallel aan Excel-blad, zodat het veranderen van blad naam duidelijk zichtbaar zal zijn.
• Het opslaan van het bestand nadat het werk is gedaan in de Macro-formaat zal ons toelaten om de code te bewaren voor toekomstig werk ook.
• Het automatiseren van het proces van het veranderen van de bladnaam zal ons helpen bij het verminderen van de tijd het categoriseren van de bladen en data.

Aanbevolen artikelen

Dit is een gids voor VBA Rename Sheet. Hier bespreken we hoe Blad hernoemen in Excel met behulp van VBA-code, samen met enkele praktische voorbeelden en downloadbare Excel template. U kunt ook gaan door onze andere voorgestelde artikelen –

1. VBA Werkmap
2. VBA Naam werkblad
3. VBA Unprotect Sheet
4. VBA Protect Sheet