Wie kann man ein Arbeitsblatt in Excel basierend auf einem Zellwert kopieren und umbenennen?
Normalerweise können Sie die Funktion Verschieben oder Kopieren verwenden, um ein Arbeitsblatt zu kopieren, und anschließend manuell einen neuen Namen für die Kopie vergeben. Haben Sie jedoch schon einmal versucht, das Blatt nach dem Kopieren automatisch basierend auf einem Zellwert umzubenennen? In diesem Artikel erfahren Sie, wie Sie beim Kopieren eines Arbeitsblatts dieses automatisch anhand eines Zellwerts umbenennen können.
Kopieren eines Arbeitsblatts und Umbenennen basierend auf einem Zellwert mithilfe von VBA-Code
Kopieren eines Arbeitsblatts und Umbenennen basierend auf einem Zellwert mithilfe von VBA-Code
Der folgende VBA-Code unterstützt Sie dabei, ein Arbeitsblatt zu kopieren und automatisch anhand eines bestimmten Zellwerts umzubenennen. Gehen Sie dazu wie folgt vor:
1. Aktivieren Sie das Arbeitsblatt, das Sie kopieren möchten, und drücken Sie anschließend die Tastenkombination ALT + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Kopieren eines Arbeitsblatts und Umbenennen mit einem Zellwert:
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 anschließend die Taste F5, um diesen Code auszuführen. Ihr aktuelles Arbeitsblatt wurde hinter allen Arbeitsblättern als aktuelle Arbeitsmappe kopiert und entsprechend dem von Ihnen angegebenen Zellwert umbenannt. Siehe Screenshot:
Hinweis: Im obigen Code bezieht sich die Zellreferenz A1 auf den Zellwert, mit dem das neu kopierte Blatt umbenannt werden soll. Sie können diese Referenz bei Bedarf anpassen.
Mehrfaches Kopieren eines Arbeitsblatts und Umbenennen basierend auf Zellwerten mit Kutools für Excel
Der obige Code ermöglicht nur die Umbenennung mit einem einzelnen Zellwert. Wenn Sie das Blatt mehrfach kopieren und die Kopien basierend auf einer Liste von Zellwerten umbenennen möchten, hilft Ihnen die Funktion Kutools für Excel – nämlich Arbeitsblattsequenz erstellen – dabei, diese Aufgabe so schnell wie möglich abzuschließen.
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Klicken Sie auf KUTOOLS PLUS > Arbeitsblatt > Sequenzarbeitsblätter erstellen. Siehe Screenshot:
2. Führen Sie im Dialogfeld Arbeitsblattsequenz erstellen die folgenden Schritte aus:
(1.) Wählen Sie das gewünschte Arbeitsblattname aus der Basierend auf Arbeitsblatt-Dropdownliste aus;
(2.) Wählen Sie im Abschnitt Arbeitsblattname basierend auf die Option „Daten innerhalb der Auswahl“ und klicken Sie auf die Schaltfläche 
, um die Zellwerte auszuwählen, anhand derer die kopierten Arbeitsblätter umbenannt werden sollen.
3. Klicken Sie dann auf die Schaltfläche OK, und das entsprechende Arbeitsblatt wird mehrfach kopiert sowie mit den von Ihnen ausgewählten Zellwerten in einem neuen Arbeitsblatt umbenannt. Siehe Screenshot:
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