Wie finde und ersetze Registerkartennamen in Excel?
Es ist einfach, Werte in Zellen in Excel zu finden und zu ersetzen. Aber gibt es eine Möglichkeit, Blattnamen in Excel zu finden und zu ersetzen? Wie im folgenden Screenshot gezeigt, haben Sie beispielsweise mehrere Arbeitsblätter, die "KTE (Vertrieb) xxx" im Blattnamen enthalten, und jetzt müssen Sie alle "KTE (Vertrieb)" durch "KTE" in allen zugehörigen Blattnamen ersetzen kannst du tun? In diesem Artikel wird eine VBA-Methode vorgestellt, um dies zu erreichen.
Suchen und Ersetzen von Registerkartennamen durch VBA-Code
Suchen und Ersetzen von Registerkartennamen durch VBA-Code
Bitte wenden Sie den folgenden VBA-Code an, um die Namen der Blattregisterkarten in Excel zu suchen und zu ersetzen. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Suchen und Ersetzen von Blattregisternamen 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 Sub3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.
4. Dann a Kutools for Excel Das Dialogfeld wird angezeigt. Geben Sie die Wörter der Blattnamen ein, die Sie ersetzen möchten, und klicken Sie auf OK Taste. Siehe Screenshot:
5. In dieser Sekunde Kutools for Excel Geben Sie im Dialogfeld das Wort ein, durch das Sie ersetzen möchten, und klicken Sie dann auf OK .
Anschließend werden alle zugehörigen Wörter in den Registerkartennamen durch die angegebenen ersetzt (siehe Abbildung unten).
Note: Der obige Code unterscheidet zwischen Groß- und Kleinschreibung.
In Verbindung stehende Artikel:
- Wie finde und ersetze ich alle leeren Zellen in Excel durch eine bestimmte Nummer oder einen bestimmten Text?
- Wie ersetze ich Kommas in Excel-Zellen durch Zeilenumbrüche (Alt + Eingabetaste)?
- Wie erstelle ich einen Makrocode, um Text in Excel zu finden und zu ersetzen?
- Wie finde ich einen Wert in einer Zelle mit einer durch Kommas getrennten Liste in Excel?
- Wie finde ich den Schnittpunkt zweier Spaltenlisten in Excel?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
