Wie kopiert man ein ausgeblendetes Arbeitsblatt in Excel?
In Excel können wir ein Arbeitsblatt schnell und einfach in die aktuelle oder eine andere Arbeitsmappe verschieben und kopieren, aber haben Sie schon einmal versucht, ein ausgeblendetes Arbeitsblatt in die aktive 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 eines ausgeblendeten Arbeitsblatts in die aktive Arbeitsmappe mit VBA-Code
Kopieren eines ausgeblendeten Arbeitsblatts in die aktive Arbeitsmappe mit VBA-Code
Um ein ausgeblendetes Arbeitsblatt aus einer Arbeitsmappe zu kopieren und ihm einen Namen zu geben, kann der folgende VBA-Code 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 im Modulfenster ein.
VBA-Code: Kopieren eines ausgeblendeten Arbeitsblatts 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
Hinweis: Im obigen Code ist „Sheet 12“ das ausgeblendete Arbeitsblatt, das Sie kopieren möchten. Bitte ändern Sie es entsprechend Ihren Anforderungen.
3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen. Ein Eingabefenster wird angezeigt, das Sie auffordert, einen Namen für die neue Kopie des ausgeblendeten Arbeitsblatts anzugeben. Siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK, und das ausgeblendete Arbeitsblatt wurde sofort mit dem neuen Namen in der aktiven Arbeitsmappe kopiert.
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