Wie benenne ich Arbeitsblätter in Excel basierend auf Zellwerten um?
Das Umbenennen von Arbeitsblättern wird üblicherweise in unserer Excel-Arbeit angewendet, aber haben Sie jemals versucht, Arbeitsblätter umbenennen basierend auf Zellwerten durchzuführen? Natürlich können Sie Arbeitsblätter umbenennen manuell vornehmen, doch in diesem Tutorial werden einige Tricks vorgestellt, mit denen Sie mehrere Arbeitsblätter schnell basierend auf Zellwerten umbenennen und so Ihre Arbeitszeit sparen können.
Arbeitsblätter umbenennen basierend auf einer bestimmten Zelle mit VBA
Arbeitsblätter umbenennen basierend auf einer bestimmten Zelle mit Arbeitsblätter massenhaft umbenennen 
Arbeitsblätter umbenennen basierend auf einem Bereich von Zellinhalten mit Arbeitsblätter massenhaft umbenennen
Arbeitsblätter umbenennen basierend auf einer bestimmten Zelle mit VBA
Mit dem folgenden VBA-Code können Sie das zugehörige Arbeitsblatt anhand einer bestimmten Zelle umbenennen.
1. Wählen Sie die Zelle aus, nach der das Arbeitsblatt benannt werden soll – in diesem Fall Zelle A1. Siehe Screenshot:
2. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
3. Klicken Sie auf Einfügen > Modul und fügen Sie dann den folgenden VBA-Code in das neue Modul-Fenster ein.
VBA: Arbeitsblätter anhand der Werte einer bestimmten Zelle umbenennen.
Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
xName = xWs.Range(xRngAddress).Value
If xName <> "" Then
xInt = 0
Set xSSh = Nothing
Set xSSh = Worksheets(xName)
While Not (xSSh Is Nothing)
Set xSSh = Nothing
Set xSSh = Worksheets(xName & "(" & xInt & ")")
xInt = xInt + 1
Wend
If xInt = 0 Then
xWs.Name = xName
Else
If xWs.Name <> xName Then
xWs.Name = xName & "(" & xInt & ")"
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub4. Drücken Sie die Taste F5, um den VBA-Code auszuführen. Anschließend werden alle Arbeitsblätter entsprechend den Werten ihrer jeweiligen Zelle A1 umbenannt.
Arbeitsblätter umbenennen basierend auf einer bestimmten Zelle mit Arbeitsblätter massenhaft umbenennen
Wenn Sie Kutools für Excel installiert haben, müssen Sie den VBA-Code nicht speichern. Stattdessen können Sie die Funktion Arbeitsblätter massenhaft umbenennen nutzen, um alle Arbeitsblätter schnell basierend auf ihren zugehörigen Zellen umzubenennen.
Nachdem Sie kostenlos installiert habenKutools für Excel, gehen Sie wie folgt vor:
1. Öffnen Sie die Arbeitsmappe, deren Arbeitsblattnamen Sie ändern möchten.
2. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Arbeitsblätter umbenennen. Siehe Screenshot:
3. Aktivieren Sie im daraufhin angezeigten Dialogfenster im Bereich Arbeitsblätter die Blätter, die Sie umbenennen möchten, und wählen Sie eine der gewünschten Umbenennoptionen aus. In diesem Beispiel ersetzen Sie den Blattnamen. Aktivieren Sie daher Aus entsprechender Arbeitsblattzelle und wählen Sie die Zelle aus, deren Inhalt für die Umbenennung verwendet werden soll. Siehe Screenshot:
4. Klicken Sie auf OK. Die Blätter wurden nun entsprechend dem Inhalt der jeweiligen Zelle umbenannt.
Manchmal müssen jedoch mehrere Arbeitsblätter basierend auf einem Bereich von Zellwerten – wie im folgenden Screenshot gezeigt – umbenannt werden. In einem solchen Fall können Sie die folgende Methode wählen.
Arbeitsblätter umbenennen basierend auf einem Bereich von Zellinhalten mit Arbeitsblätter massenhaft umbenennen
Mit der Funktion Arbeitsblätter massenhaft umbenennen von Kutools für Excel können Sie die Blätter ebenfalls basierend auf einem Bereich auswählen und umbenennen.
Nachdem Sie kostenlos installiert habenKutools für Excel, gehen Sie wie folgt vor:
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Arbeitsblätter umbenennen. Siehe Screenshot:
2. Geben Sie im Dialogfenster Arbeitsblätter massenhaft umbenennen die folgenden Einstellungen an:
(1) Wählen Sie die Arbeitsblätter aus, die Sie umbenennen möchten, aus dem Bereich Arbeitsblattliste;
(2) Aktivieren Sie die Option Aus Auswahlund wählen Sie die Zellwerte aus, auf deren Basis die Umbenennung erfolgen soll;
(3) Legen Sie den Umbenennungsstil fest. Sie können Vor dem ursprünglichen Namen einfügen, Nach dem ursprünglichen Namen einfügen oder Ursprünglichen Namen ersetzen auswählen und das entsprechende Ergebnis direkt im Dialogfenster in der Vorschau anzeigen lassen.
3. Klicken Sie auf OK. Anschließend sehen Sie, dass alle ausgewählten Arbeitsblätter entsprechend den festgelegten Zellwerten umbenannt wurden.
Ursprünglichen Namen ersetzen
Vor dem ursprünglichen Namen einfügen
Nach dem ursprünglichen Namen einfügen
Mit dem Hilfsprogramm Arbeitsblätter umbenennen können Sie auch Arbeitsblätter umbenennen mit einem bestimmten Präfix oder Suffix durchführen.Klicken Sie hier, um mehr über Arbeitsblätter massenhaft umbenennen zu erfahren.
Mehrere Blätter basierend auf Zellwerten umbenennen
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins