SaveAs bei Save, Orig.Datei soll erhalten bleiben
16.11.2004 11:13:27
Ulf
in eine Excel-Datei werden Daten eingegeben. Beim Betätigen der Speicher-Funktion soll unter Vorgabe eines Dateinamens (setzt sich aus Zellinhalt zusammen) die Datei gespeichert werden, die Ausgangsdatei soll aber unberührt bleiben.
Habe mir unten folgendes überlegt. Dabei wird aber ein Fehler erzeugt, sobald ich in der SaveAs-DialogBox "Save" drücke:
" The instruction at "0x309314c2" referenced memory at "0x028812a8". The memory could not be "read". "
Wo liegt das Problem?
Gibts nen anderen Lösungsvorschlag?
Danke
Ulf
#######################################################################
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Saved = True
dateiname = Sheets("Cover Sheet").Range("D16")
Antwort = Application.Dialogs(xlDialogSaveAs).Show(dateiname)
End Sub