Ich habe eine Makro geschrieben, das vom Sheet "Param" aus gestartet wird und das Nachbarsheet "Daten" als ein neues Sheet in die Datei "Archiv.xls" speichern soll.
Es funktioniert auch, aber das umherschalten hin und her ist hässlich. Kann man das irgendwie umgehen?
Vielen Dank & Servus
Eda
Sub Archivieren()
AName = Range("B15").Value
Workbooks.Open FileName:= _
"Archiv.xls"
ActiveWindow.WindowState = xlNormal
Windows("OrigFile.xls").Activate
Sheets("Daten").Select
Sheets("Daten").Copy Before:=Workbooks("Brio-Archiv.xls"). _
Sheets(1)
Sheets("Daten").Select
Sheets("Daten").Name = "Arch_" & ANAme
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Param").Select
Range("A1").Select
End Sub