Speichern unter ohne nachfragen überschreiben
17.03.2004 18:33:24
TinoB
ich hänge schon wieder an einer stelle fest. mit diesem makro wird die datei gespeichert. dies funktioniert soweit auch, nur, wird immer noch nachgefragt ob die datei ersetzt werden soll. das versteh ich nicht. weiß jemand rat und könnte das problem lösen?
Sub Speichern_unter()
Application.SendKeys Sheets("Vorlage").Range("AC2").Value
Application.DisplayAlerts = False
Application.AlertBeforeOverwriting = False
If Application.Dialogs(xlDialogSaveAs).Show = False Then Exit Sub
Application.DisplayAlerts = True
End Sub
Danke
Tino