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.