Wie kopiert man ein Blatt und benennt es basierend auf einem Zellenwert in Excel um?

Normalerweise können Sie die Funktion Verschieben oder Kopieren verwenden, um ein Arbeitsblatt zu kopieren, und dann manuell einen neuen Namen für die Kopie eingeben. Aber haben Sie schon einmal versucht, das Blatt basierend auf einem Zellenwert nach dem Kopieren des Arbeitsblatts umzubenennen? In diesem Artikel werde ich darüber sprechen, wie Sie das Arbeitsblatt automatisch basierend auf einem Zellenwert umbenennen können, wenn Sie eine Kopie erstellen.

Kopieren eines Arbeitsblatts und Umbenennen basierend auf einem Zellenwert mit VBA-Code

Mehrfaches Kopieren eines Arbeitsblatts und Umbenennen basierend auf Zellenwerten mit Kutools für Excel

Kopieren eines Arbeitsblatts und Umbenennen basierend auf einem Zellenwert mit VBA-Code

Der folgende VBA-Code kann Ihnen helfen, ein Arbeitsblatt zu kopieren und es automatisch mit einem bestimmten Zellenwert umzubenennen. Bitte gehen Sie wie folgt vor:

1. Aktivieren Sie das Arbeitsblatt, das Sie kopieren möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Kopieren eines Arbeitsblatts und Umbenennen mit einem Zellenwert:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und Ihr aktuelles Arbeitsblatt wurde nach allen Arbeitsblättern in der aktuellen Arbeitsmappe kopiert und mit dem von Ihnen angegebenen Zellenwert umbenannt, siehe Screenshot:

Hinweis: In dem obigen Code ist die Zellreferenz A1 der Zellenwert, mit dem Sie das neue kopierte Blatt umbenennen möchten. Sie können sie bei Bedarf ändern.

Mehrfaches Kopieren eines Arbeitsblatts und Umbenennen basierend auf Zellenwerten mit Kutools für Excel

Der obige Code kann nur mit einem Zellenwert umbenannt werden. Wenn Sie das Blatt mehrmals kopieren und basierend auf einer Liste von Zellenwerten umbenennen müssen, kann Ihnen Kutools für Excel’s Create Sequence Worksheet dabei helfen, diese Aufgabe so schnell wie möglich abzuschließen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Klicken Sie auf Kutools Plus > Arbeitsblatt > Sequenzarbeitsblätter erstellen, siehe Screenshot:

2. Führen Sie im Dialogfeld Sequenzarbeitsblätter erstellen die folgenden Schritte aus:

(1.) Wählen Sie den Namen des Arbeitsblatts, das Sie aus der Dropdown-Liste Basierend auf Arbeitsblatt kopieren möchten;

(2.) Wählen Sie Daten innerhalb der Auswahl unter der Arbeitsblattname basierend auf Sektion aus, und klicken Sie auf die Schaltfläche, um die Zellenwerte auszuwählen, basierend auf denen Sie die kopierten Arbeitsblätter umbenennen möchten.

Jetzt Kutools für Excel herunterladen!

3. Klicken Sie dann auf die Schaltfläche OK, und das spezifische Arbeitsblatt wurde mehrmals kopiert und mit den ausgewählten Zellenwerten in einer neuen Arbeitsmappe umbenannt, siehe Screenshot: