Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bestätigung beim Speichern unterdrücken.

Gruppe

Meldung

Problem

Wie kann ich die Rückfrage beim Speichern, ob die bereits vorhandene Datei ersetzt werden soll, verhindern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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