Gruppe
Allgemein
Problem
Wie kann ich die Rückfrage beim Speichern, ob die bereits vorhandene Datei ersetzt werden soll, verhindern?
StandardModule: basMain
Sub SaveBook()
Dim sName As String
On Error GoTo ERRORHANDLER
sName = ActiveWorkbook.FullName
sName = InputBox( _
prompt:="Bitte Dateiname angeben:", _
Default:=sName)
If sName = "" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs sName
Application.DisplayAlerts = True
ERRORHANDLER:
End Sub