kopieren Sie Blatt in eine andere Arbeitsmappe, aber das Blatt wird auch in einer neuen Arbeitsmappe gespeichert

Question

Ich muss ein Blatt aus einer Arbeitsmappe in eine andere (vorhandene) Arbeitsmappe kopieren. Es funktioniert, aber das Blatt wird auch automatisch in einer neuen Arbeitsmappe gespeichert. Ich habe keine Ahnung, warum das so ist. dies ist mein Code:

Worksheets("New").Activate 
If IsSheetEmpty(StartWorkbook.Sheets("New")) = True Then 
    Application.DisplayAlerts = False 
    Worksheets("New").Delete 
    OLDWorkbook.Activate 
    Sheets("sheet1").Select 
    Sheets("sheet1").Copy 
    Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") 
    StartWorkbook.Activate 
    Sheets("sheet1").Name = "New" 
    OLD.Close 
    Application.DisplayAlerts = True 
Else 
    MsgBox ("sheet is not empty") 
End If 

Vielen Dank im Voraus

Answer 1

nur eine richtige Antwort zu haben:

Dieses Verhalten auf die Tatsache zurückzuführen ist, dass ohne Ziel ein Blatt zu kopieren, eine neue Arbeitsmappe wird erstellt mit diesem Blatt. Aus diesem Grund gibt es keinen Befehl zum Kopieren eines kopierten Blattes.

Für den gegebenen Code, entfernen Sie einfach die Zeile

Sheets("sheet1").Copy 

Aber halten Sie die Zeile:

Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") 

(natürlich ist es erforderlich);)