Hi!

Dachte nicht, dass ich wieder so schnell Hilfe von den Profis benötige.

Mein Problem:
Ich möchte gerne per VBA eine 1:1-Kope einer bestehenden Datei erzeugen.

Dazu habe ich mir folgenden Code "zusammengebastelt":
Sub Kopie_1_1()
Application.ScreenUpdating = False

Sheets("Test").Select
fname = InputBox("Eingabe Pfad und Dateiname", , "C:\tmp\Originalkopie.xls")
If fname = "" Then GoTo Abbruch
MsgBox "Der Name der Ausgabedatei lautet " & fname

ActiveWorkbook.SaveAs Filename:=fname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Exit Sub

Abbruch:
MsgBox "Der Kopiervorgang wurde abgebrochen.", vbExclamation, "Hinweis --> aus Makro 1_1_Kopie"
Application.ScreenUpdating = True
End Sub

Leider wird die Originaldatei geschlossen und die Kopie ist offen.
Kann man die Kopie im "Hintergrund" speichern und die Originaldatei offen lassen?

Frage 2:
Besteht die Möglichkeit nur ein bestimmtes Blatt zu kopieren?

Ciao

Tom