ich habe nachfolgendes Makro geschrieben, damit ein Formular bei "speichern unter" automatisch in einem bestimmten Verzeichnis und mit einem Namen, der sich aus dem Formular ergibt, und das Feld("G2") um 1 erhöht abgespeichert wird. Das klappt auch einwandfrei. Leider öffnet sich im Anschluss noch einmal die "Speichern unter" Abfrage !
Ich habe nun 2 Möglichkeiten:
1. Bestätigen -> Folge: Meldung "Datei existiert bereits. Möchten Sie die bestehende Datei überschreiiben ?"
2. Abbrechen
Suche nun nach einer Lösung zur Unterdrückung der "Speichern unter" Abfrage bzw. des korrekten Makros.
Private Sub Workbook_BeforeSave(ByVal SaveAsUi As Boolean, Cancel As Boolean)
If SaveAsUi = True Then
Range("G2").Value = Range("G2").Value + 1
ThisWorkbook.SaveAs Filename:="D:\Versuch\" & Range("AY2").Value, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End If
End Sub