Wie kopiert man ein ausgeblendetes Arbeitsblatt in Excel?
In Excel können Sie ein Arbeitsblatt schnell und einfach in die aktuelle oder eine andere Arbeitsmappe verschieben oder kopieren – aber haben Sie schon einmal versucht, ein ausgeblendetes Arbeitsblatt in die aktuelle Arbeitsmappe zu kopieren? In diesem Artikel stelle ich Ihnen einen VBA-Code vor, mit dem Sie ein bestimmtes ausgeblendetes Arbeitsblatt in die aktive Excel-Datei kopieren können.
Kopieren Sie ein ausgeblendetes Arbeitsblatt nach Aktuelle Arbeitsmappe mithilfe eines VBA-Codes
Kopieren Sie ein ausgeblendetes Arbeitsblatt nach Aktuelle Arbeitsmappe mithilfe eines VBA-Codes
Um ein ausgeblendetes Arbeitsblatt aus einer Arbeitsmappe zu kopieren und ihm einen Namen zu geben, kann der folgende VBA-Code Ihnen helfen:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Kopieren Sie ein ausgeblendetes Arbeitsblatt nach Aktuelle Arbeitsmappe:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Hinweis: Im obigen Code bezeichnet Arbeitsblatt 12 das ausgeblendete Arbeitsblatt, das Sie kopieren möchten. Passen Sie diesen Namen bitte entsprechend Ihren Anforderungen an.
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie einen Namen für die neue Kopie des ausgeblendeten Arbeitsblatts festlegen müssen. Siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK, und das ausgeblendete Arbeitsblatt wird sofort unter dem Namen „Neuer Name“ in die aktuelle Arbeitsmappe kopiert.
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