Speichern von Arbeitsmappen
29.12.2003 17:15:10
alex
Ich konnte in der Recherche folgenden code finden:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.ActiveWorkbook.SaveAs ("e:\Alex\" & "Tabelle1" & Format(Now, "ddmmyy_hhmmss") & ".xls")
End Sub
Erspeichert mir meine Arbeitsmappe in dem angegebenen Format ab. Nur leider ist dann auch die urpsrüngliche Arbeitsmappe mit dem Namen "Tabelle1 und DAtum versehen". Ich würde gerne die Urpsrungsmappe beibehalten und ebenfalls (unter dem alten Namen) speichern lassen - da ja nur dort die Einträge vorgenommen werden - sprich die Kopien sollen zur Nachvollziehbarkeit im o.a. Ordner abgelegt werden.
Vielen Dank für die Unterstützung
Gruss Alex