Tabladen op naam doorvoeren

[path1963]

Ik zou graag een manier hebben om de tabladen van de werkbladen van a tot en met z in één keer door te voeren.
Is daar een mogelijkheid voor
Zie bijgevoegd

 

[Roncancio]

Private Sub Workbook_Open()
Dim Wblad As Worksheet
    For Each Wblad In Worksheets
        Wblad.Name = Chr(64 + Wblad.Index)
    Next
End Sub

Zet bovenstaande code in ThisWorkbook en bij het openen van het bestand krijgen de werkbladen de letters van het alfabet.

Met vriendelijke groet,


Roncancio

 

[path1963]

Private Sub Workbook_Open()
Dim Wblad As Worksheet
    For Each Wblad In Worksheets
        Wblad.Name = Chr(64 + Wblad.Index)
    Next
End Sub

Zet bovenstaande code in ThisWorkbook en bij het openen van het bestand krijgen de werkbladen de letters van het alfabet.

Met vriendelijke groet,


Roncancio

Je uitleg zal wel kloppen maar waar moet ik dit dan invullen?

 

[Warme bakkertje]

Rechtsklik op icoon links van Bestand. Selecteer Programmacode weergeven. Kopieër en plak de macro.
Bestand opslaan >> Sluiten >> Terug openen

Mvg

Rudi

 

[Roncancio]

Het zou als code kunnen wanneer je het bestand opent(1) of het zou als macro(2) kunnen.

1.
In de programmacode zodat het wordt aangepast bij het openen van het bestand.
- Ga naar Extra - Macro - Visual Basic Editor
- Beeld - Projectverkenner.
- Dubbelklik op ThisWorkbook.

Private Sub Workbook_Open()
Dim Wblad As Worksheet
    For Each Wblad In Worksheets
        Wblad.Name = Chr(64 + Wblad.Index)
    Next
End Sub

2.
Je kunt het ook als macro neerzetten.

Als macro:
- Ga naar Extra - Macro - Visual Basic Editor
- Vervolgens Invoegen - Module
- Kopieer onderstaande code in de module

Sub Alfabet()
Dim Wblad As Worksheet
    For Each Wblad In Worksheets
        Wblad.Name = Chr(64 + Wblad.Index)
    Next
End Sub

Je kunt dan rechtstreeks de macro starten zonder dat je het bestand opnieuw opent.

Met vriendelijke groet,


Roncancio