Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie benenne ich Arbeitsblätter basierend auf Zellenwerten in Excel um?

Das Umbenennen von Arbeitsblättern wird normalerweise in unserer Excel-Arbeit angewendet. Haben Sie jemals versucht, Arbeitsblätter basierend auf Zellenwerten umzubenennen? Natürlich können Sie Arbeitsblätter manuell umbenennen, aber in diesem Tutorial werden einige Tricks vorgestellt, mit denen Sie mehrere Arbeitsblätter basierend auf Zellenwerten schnell umbenennen können, wodurch Sie Arbeitszeit sparen können.

Benennen Sie Arbeitsblätter basierend auf einer bestimmten Zelle mit VBA um

Benennen Sie Arbeitsblätter basierend auf einer bestimmten Zelle mit Mehrere Arbeitsblätter umbenennen um gute Idee3

Benennen Sie Arbeitsblätter basierend auf einer Reihe von Zelleninhalten mit Mehrere Arbeitsblätter umbenennen um gute Idee3


Mit der folgenden VBA können Sie das relative Arbeitsblatt basierend auf einer bestimmten Zelle umbenennen.

1. Wählen Sie die Zelle aus, auf der Sie das Arbeitsblatt umbenennen möchten. Wählen Sie in diesem Fall Zelle A1 aus. Siehe Screenshot:

doc Arbeitsblatt umbenennen 1

2. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

3 Klicken Insert > ModulFügen Sie dann den folgenden VBA-Code in den neuen ein Modul Fenster.

VBA: Arbeitsblätter basierend auf bestimmten Zellenwerten 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 Sub

4. Drücken Sie F5 Schlüssel zum Ausführen von VBA-Code. Dann wurden alle Arbeitsblätter durch jeden relativen A1-Zellenwert umbenannt.

doc Arbeitsblatt umbenennen 2


Wenn Sie Kutools for ExcelWenn Sie den VBA-Code nicht speichern müssen, können Sie den verwenden Benennen Sie mehrere Arbeitsblätter um Funktion zum schnellen Umbenennen aller Arbeitsblätter basierend auf ihren relativen Zellen.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Aktivieren Sie die Arbeitsmappe, die Sie umbenennen möchten.

2 Klicken Kutools Plus > Arbeitsblatt > Arbeitsblätter umbenennen. Siehe Screenshot:

doc Arbeitsblatt umbenennen 11

3. Überprüfen Sie dann im ausgeblendeten Dialogfeld die Blätter, unter denen Sie umbenennen möchten Arbeitsblätter Bereich, und wählen Sie eine der Option umbenennen Sie brauchen, hier werde ich den Blattnamen ersetzen, dann überprüfen Benennen Sie Arbeitsblätter mit einer bestimmten Zelle umund wählen Sie die Zelle aus, nach der Sie umbenennen möchten. Siehe Screenshot:

doc Arbeitsblatt umbenennen 9

4 Klicken Ok. Jetzt werden die Blätter mit bestimmten Zelleninhalten umbenannt.

doc Arbeitsblatt umbenennen 2

In einigen Fällen müssen Sie jedoch mehrere Arbeitsblätter basierend auf einem Bereich von Zellenwerten umbenennen (siehe Abbildung unten). In diesem Fall können Sie auswählen unten Methode.

doc Arbeitsblatt umbenennen 3


mit Benennen Sie mehrere Arbeitsblätter um of Kutools for ExcelSie können die Blätter auch basierend auf einem ausgewählten Bereich umbenennen.

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutools Plus > Arbeitsblatt > Arbeitsblätter umbenennen. Siehe Screenshot:

doc Arbeitsblatt umbenennen 11

2. In dem Benennen Sie mehrere Arbeitsblätter um Dialog müssen Sie die Einstellungen wie folgt angeben:

(1) Wählen Sie die Arbeitsblätter aus, aus denen Sie umbenennen möchten Liste der Arbeitsblätter;

(2) Überprüfen Aus einem bestimmten Bereich Wählen Sie die Zellenwerte aus, die Sie basierend auf umbenennen möchten.

(3) Geben Sie die Optionen umbenennen, Du kannst nachschauen Vor dem ursprünglichen Blattnamen einfügen, Nach dem ursprünglichen Blattnamen einfügenbezeichnet, oder Ersetzen Sie den ursprünglichen Blattnamenund Sie können das entsprechende Ergebnis im Dialogfeld in der Vorschau anzeigen.

doc Arbeitsblatt umbenennen 10

3 Klicken Okund dann können Sie sehen, dass alle von Ihnen ausgewählten Arbeitsblätter basierend auf den angegebenen Zellenwerten umbenannt wurden.

Ersetzen Sie den ursprünglichen Blattnamen

doc Arbeitsblatt umbenennen 6

Vor dem ursprünglichen Blattnamen einfügen

doc Arbeitsblatt umbenennen 7

Nach dem ursprünglichen Blattnamen einfügen

doc Arbeitsblatt umbenennen 8

Mit dem Dienstprogramm Arbeitsblätter umbenennen können Sie Arbeitsblätter auch mit einem bestimmten Präfix oder Suffix umbenennen. Klicken Sie hier, um mehr über das Umbenennen mehrerer Arbeitsblätter zu erfahren.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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.
  • Erhöht Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 4 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 2 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.