Wie benenne ich mehrere Arbeitsblätter in Excel um?

Normalerweise können wir Arbeitsblätter in Excel schnell umbenennen, indem wir auf die Registerkarte des Blatts doppelklicken oder mit der rechten Maustaste auf die Registerkarte klicken und den Befehl „Umbenennen“ auswählen. Das ist sehr praktisch, um ein oder zwei Arbeitsblätter in Excel umzubenennen, aber wenn wir mehrere Arbeitsblätter in einem Schritt umbenennen möchten, wie machen wir das?

Arbeitsblätter mit dem Umbenennen-Befehl umbenennen

Ein praktisches Tool verwenden, um mehrere Arbeitsblätter komfortabel umzubenennen

VBA-Code verwenden, um mehrere Arbeitsblätter umzubenennen

Arbeitsblätter mit dem Umbenennen-Befehl umbenennen

Wir können Arbeitsblätter in Excel schnell mit dem Umbenennen-Befehl entsprechend den folgenden Schritten umbenennen:

Klicken Sie mit der rechten Maustaste auf die Registerkarte des Blatts, das Sie umbenennen möchten, und wählen Sie den Befehl „Umbenennen“ aus dem Kontextmenü aus. Oder doppelklicken Sie auf die Registerkarte des Blatts, um das Arbeitsblatt umzubenennen. Geben Sie dann einen neuen Namen ein und drücken Sie die Eingabetaste, um es umzubenennen, siehe Screenshot:

Mit diesem Umbenennen-Befehl können Sie immer nur ein Arbeitsblatt gleichzeitig umbenennen. Um mehrere Arbeitsblätter umzubenennen, wiederholen Sie bitte die obigen Schritte.

Ein praktisches Tool verwenden, um mehrere Arbeitsblätter komfortabel umzubenennen

VBA-Code verwenden, um mehrere Arbeitsblätter umzubenennen

Hier stelle ich Ihnen zwei VBA-Codes zum Umbenennen mehrerer Arbeitsblätter vor.

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

Mit dem folgenden VBA-Code können Sie schnell alle Arbeitsblätter des aktuellen Arbeitsbuchs mit demselben Präfix in ihren Arbeitsblattnamen umbenennen, z. B.: KTE-Auftrag1, KTE-Auftrag2 und KTE-Auftrag3…

1. Klicken Sie auf Entwickler > Visual Basic, und klicken Sie im Microsoft Visual Basic-Anwendungsfenster auf Einfügen > Modul.

2. Kopieren und fügen Sie den folgenden Code in das Modul ein.

VBA: Alle Blätter durch Eingabe eines bestimmten Namens umbenennen

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 die Schaltfläche, um den Code auszuführen, und geben Sie den gewünschten Namen in das Pop-up-Fenster ein. Siehe Screenshots:

4. Klicken Sie auf OK. Dann sehen Sie, dass alle Blätter umbenannt sind.

2. VBA-Code zum Umbenennen mehrerer Arbeitsblätter durch spezifische Zellenwerte in jedem Arbeitsblatt des aktiven Arbeitsbuchs

Mit dem folgenden VBA-Code werden alle Arbeitsblätter des aktuellen Arbeitsbuchs anhand des Inhalts einer bestimmten Zelle umbenannt. Zum Beispiel können Sie den Arbeitsblattnamen in der Zelle A1 des gesamten Arbeitsbuchs eingeben, und das Arbeitsblatt wird entsprechend dem Zellenwert A1 umbenannt.

1.  Legen Sie eine Zelle fest, die den Arbeitsblattnamen in jedem Arbeitsblatt enthalten soll, und geben Sie den Arbeitsblattnamen dort ein. In diesem Beispiel werde ich den Arbeitsblattnamen in Zelle A1 in jedem Arbeitsblatt eingeben.

2.  Klicken Sie auf Entwickler > Visual Basic, und klicken Sie im Microsoft Visual Basic-Anwendungsfenster auf Einfügen > Modul.

3.  Kopieren und fügen Sie den folgenden Code in das Modul ein.

VBA: Arbeitsblätter anhand eines bestimmten Zelleninhalts 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 die Schaltfläche, um den Code auszuführen. Alle Arbeitsblätter werden basierend auf dem Zelleninhalt von A1 umbenannt.

Demo: Mehrere Arbeitsblätter mit Kutools für Excel umbenennen

Verwandte Artikel