Wie kann ich eine Datei mittels Schaltfläche schließen und diese Datei in verschiedene Ordner gleichzeitig speichern?
Wer weiß Rat?
Für jede Hilfe wie immer sehr dankbar!
Gruß Frank H.
Sub saveMulti()
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "E:\Test\" & .Name '1. Kopie
.SaveCopyAs "C:\Ordner\" & .Name '2. Kopie
.SaveCopyAs "C:\" & .Name '3. Kopie
.Close
End With
End Sub
On Error Goto ErrExit
Application.DisplayAlerts = False
With ThisWorkbook
.Save 'Original speichern
.SaveCopyAs "C:\Test\" & .Name '1. Kopie
.Close
End With
ErrExit:
Application.DisplayAlerts = True