a.) Ich möchte über eine Schaltfläche eine Vorlage in einem vorgegeben Pfad speichern, Abfragen ob Sie bereits existiert und wenn "Ja" überschreiben lassen oder abbrechen. Dialog über eine Message-Box.
b.)Nach Abfrage durch die Message-Box und der Bestätigung "Speichern" oder aber "Abbruch" soll die Anwendung geschlossen werden ohne weitere Nachfrage.
Dazu habe ich einige Sachen probiert, komme aber nicht zu dem gewünschten als "ganzes"
Sub Ende2() 'mein button
If MsgBox _
("Continue save & exit ?" _
, vbOKCancel + vbQuestion, _
"Save & Exit") = vbOK Then
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente \Eigene Dateien\123.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False _
, CreateBackup:=False
'Else.. ??????
Application.Quit
End If
End Sub
Also mir fehlt der Übergang vom Speichern/Abbruch zum Schließen.
Kann mir jemand den Code berichtigen oder ein entsprechendes Beispiel liefern?
Ein File-Filter nur für .xls wäre auch noch ganz nett, da aus einer Vorlage (.xlt) heraus gespeichert werden soll.
Gruß,
Juergen