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
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.
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:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins