Wie kopiere ich ein verstecktes Blatt in Excel?
In Excel können wir ein Blatt schnell und einfach in eine aktuelle oder andere Arbeitsmappe verschieben und kopieren. Haben Sie jemals versucht, ein verstecktes Blatt in eine aktive Arbeitsmappe zu kopieren? In diesem Artikel stelle ich einen VBA-Code vor, mit dem Sie ein bestimmtes verstecktes Blatt in eine aktive Excel-Datei kopieren können.
Kopieren Sie ein verstecktes Arbeitsblatt mit VBA-Code in eine aktive Arbeitsmappe
Kopieren Sie ein verstecktes Arbeitsblatt mit VBA-Code in eine aktive Arbeitsmappe
Der folgende VBA-Code kann Ihnen einen Gefallen tun, um ein verstecktes Blatt aus einer Arbeitsmappe zu kopieren und ihm einen Namen zu geben:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Kopieren Sie ein verstecktes Arbeitsblatt in die aktive 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
Note: Im obigen Code, Blatt 12 Ist das versteckte Blatt, das Sie kopieren möchten, ändern Sie es bitte nach Ihren Wünschen.
3. Und dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, einen Namen für die neue Kopie des ausgeblendeten Arbeitsblatts anzugeben (siehe Abbildung):
4. Dann klick OK Klicken Sie auf die Schaltfläche, und das ausgeblendete Blatt wurde sofort mit dem neuen Namen in der aktiven 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, 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 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.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!