Normalerweise können wir zum Umbenennen von Arbeitsblättern in Excel schnell auf die Registerkarte "Blatt" doppelklicken oder mit der rechten Maustaste auf die Registerkarte "Blatt" klicken, um den Befehl "Umbenennen" zum Umbenennen von Arbeitsblättern zu wählen. Es ist sehr praktisch, ein oder zwei Arbeitsblätter in Excel umzubenennen. Wie können wir jedoch mehrere Arbeitsblätter innerhalb eines Vorgangs umbenennen?

Verwenden des Befehls "Umbenennen" zum Umbenennen von Arbeitsblättern

Verwenden eines praktischen Tools zum bequemen Umbenennen mehrerer Arbeitsblätter

Verwenden von VBA-Code zum Umbenennen mehrerer Arbeitsblätter

Verwenden des Befehls "Umbenennen" zum Umbenennen von Arbeitsblättern

Toll! Verwenden Sie effiziente Tabs in Excel wie Chrome, Edge, Firefox und Safari!
Sparen Sie 50% Ihrer Zeit und reduzieren Sie jeden Tag Tausende von Mausklicks für Sie!

Mit dem können wir Arbeitsblätter in Excel schnell umbenennen Umbenennen Befehl gemäß den folgenden Verfahren:

Klicken Sie mit der rechten Maustaste auf die Blattregisterkarte, die Sie umbenennen möchten, und wählen Sie Umbenennen Befehl aus dem Kontextmenü. Oder doppelklicken Sie auf die Registerkarte Blatt, um das Arbeitsblatt umzubenennen. Geben Sie dann einen neuen Namen ein und drücken Sie Enter Schlüssel zum Umbenennen, siehe Screenshot:

Mit diesem Umbenennen Befehl können Sie jeweils nur ein Arbeitsblatt umbenennen. Um mehrere Arbeitsblätter umzubenennen, wiederholen Sie bitte die obigen Vorgänge.

Verwenden eines praktischen Tools zum bequemen Umbenennen mehrerer Arbeitsblätter

Verwenden von VBA-Code zum Umbenennen mehrerer Arbeitsblätter

Hier stelle ich Ihnen zwei VBA-Codes vor, mit denen Sie mehrere Arbeitsblätter umbenennen können.

Code 1. VBA-Code zum gleichzeitigen Umbenennen mehrerer Arbeitsblätter mit dem gewünschten Namen

Mit dem folgenden VBA-Code können Sie schnell alle Arbeitsblätter der aktuellen Arbeitsmappe mit demselben Präfix in ihren Arbeitsblattnamen umbenennen, z. B.: KTE-Reihenfolge1, KTE-Reihenfolge 2 und KTE-Reihenfolge 3…

1. Klicken Sie auf Entwickler:in / Unternehmen > Visual BasicUnd klicken Sie auf Insert > Modul der Microsoft Visual Basic-Anwendungsfenster.

2. Bitte kopieren Sie den folgenden Code und fügen Sie ihn in den Code ein Modul.

VBA: Benennen Sie alle Blätter um, indem Sie einen bestimmten Namen eingeben

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  Klicken Sie auf Kostenlos erhalten und dann auf Installieren.  Klicken Sie auf die Schaltfläche, um den Code auszuführen, und geben Sie den gewünschten Namen in das Popup-Dialogfeld ein. Siehe Screenshots:

4. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. OK. Dann können Sie sehen, dass alle Blätter umbenannt werden.

2. VBA-Code zum Umbenennen mehrerer Arbeitsblätter nach einem bestimmten Zellenwert in jedem Arbeitsblatt der aktiven Arbeitsmappe

Mit dem folgenden VBA-Code werden alle Arbeitsblätter der aktuellen Arbeitsmappe unter Verwendung des Inhalts einer bestimmten Zelle umbenannt. Sie können beispielsweise den Arbeitsblattnamen in die A1-Zelle der gesamten Arbeitsmappe eingeben, und das Arbeitsblatt wird dann in den Zellenwert A1 umbenannt.

1.  Bitte geben Sie eine Zelle an, die den Arbeitsblattnamen in jedem Arbeitsblatt enthalten soll, und geben Sie den Arbeitsblattnamen ein. In diesem Beispiel gebe ich den Arbeitsblattnamen in Zelle A1 in jedem Arbeitsblatt ein.

2.  Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Entwickler:in / Unternehmen > Visual BasicUnd klicken Sie auf Insert > Modul der Microsoft Visual Basic-Anwendung Windows.

3.  Bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Modul ein.

VBA: Arbeitsblätter nach einem bestimmten Zelleninhalt umbenennen

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  Klicken Sie auf Kostenlos erhalten und dann auf Installieren.  Schaltfläche zum Ausführen des Codes. Alle Arbeitsblätter werden basierend auf dem Zelleninhalt von A1 umbenannt.

Demo: Benennen Sie mehrere Arbeitsblätter mit Kutools for Excel um

In Verbindung stehende Artikel