Sub Speichern_Versand()
ActiveSheet.Copy
ActiveWorkbook.SaveAs ("H:\Intern\Montage\Fertigstellungen\" & Range("d3") & "_" & Range("B3") & "_" & Format(Date, "dd.mm.yyyy"))
Sheets("Versand_Liste").PrintOut Copies:=2
ActiveWorkbook.closed
MsgBox "es werden zwei Kopien gedruckt und gespeichert in Ablage"
End Sub
habe kleines Problem, möchte aktibe Tabellenblatt speichern als File
dies geht soweit, muss aber FILE schliessen und bei Clodes bleibt
Code stecken.
DANKE
gruss helena