Hoe sheet-tabnamen in Excel zoeken en vervangen?

Het is eenvoudig om waarden in cellen in Excel te zoeken en te vervangen. Maar is er ook een manier om sheetnamen in Excel te zoeken en te vervangen? Bijvoorbeeld, zoals in de onderstaande schermafbeelding te zien is, heb je meerdere werkbladen met “KTE(Verkoop) xxx” in de sheetnaam, en nu moet je alle “KTE(Verkoop)” vervangen door “KTE” in alle gerelateerde sheetnamen. Wat kun je doen? Dit artikel introduceert een VBA-methode om dit te bereiken.

Sheet-tabnamen zoeken en vervangen met VBA-code

Sheet-tabnamen zoeken en vervangen met VBA-code

Pas onderstaande VBA-code toe om sheet-tabnamen in Excel te zoeken en te vervangen. Volg de volgende stappen.

1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.

VBA-code: sheet-tabnamen zoeken en vervangen in Excel

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. Druk op de F5-toets om de code uit te voeren.

4. Er verschijnt een Kutools voor Excel dialoogvenster. Voer de woorden van de sheetnamen die u wilt vervangen in en klik op de OK-knop. Zie screenshot:

5. Voer in het tweede Kutools voor Excel dialoogvenster het woord in waarmee u wilt vervangen en klik vervolgens op de OK-knop.

Alle gerelateerde woorden in de sheet-tabnamen worden vervangen door het opgegeven woord, zoals in de onderstaande schermafbeelding te zien is.

Opmerking: De bovenstaande code is hoofdlettergevoelig.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Gerelateerde artikelen:

• Hoe alle lege cellen in Excel te zoeken en te vervangen door een bepaald getal of tekst?
• Hoe komma's te vervangen door nieuwe regels (Alt + Enter) in cellen in Excel?
• Hoe een macrocode te maken om zoeken en vervangen van tekst in Excel te realiseren?
• Hoe een waarde in een cel met een komma-gescheiden lijst in Excel te vinden?
• Hoe het snijpunt van twee kolomlijsten in Excel te vinden?