ich nutze bisher sehr zuverlässig folgenden Code (hier aus dem Forum) , um aus einer Mappe ein einzelnes Sheet zu kopieren und in einen Archiv-Ordner wegzulegen.
Sub SheetKopieren()
Dim myPath As String, myFile As String
myPath = "C:\Archiv"
myFile = "Testdatei"
Sheets("TestSheet").Copy
ActiveWorkbook.SaveAs Filename:=myPath & "\" & myFile & ".xls"
ActiveWorkbook.Close
End Sub
Lässt sich der Befehl 'ActiveWorkbook.Close' vermeiden?Ich möchte also die Kopie erstellen, ohne, dass diese sich dann aber öffnet.
Ich erhoffe mir dadurch zum einen eine Beschleunigung und zum anderen brauche in das kopierte Sheet in dem von mir vorgesehenen Workflow zunächst nicht.
Herzlichen Dank vorab!
Dietmar aus Aachen