Speichern, Meldung unterdrücken
30.09.2003 11:37:17
Joerg
mit folgendem Makro führe ich per CommandButton eine Speicherung des aktuellen Arbeitsblattes durch.
Wie kann ich die jedesmal auftauchende Meldung : " Eine Datei diesen Names existiert schon..... Soll sie ersetzt werden ?" unterdrücken, so dass direkt ohne Nachfrage abgespeichert wird ?
Danke Joerg
Private Sub Speichern()
Dim Name As Range
Dim Datum As Range
Set Name = Range("B2")
Set Datum = Range("B3")
ActiveWorkbook.SaveAs Name & (" ") & Format(Datum, "DD-MM-YY") & (".xls")
End Sub