immer wieder ein renner, aber trotz suchfunktion krieg ich es nicht richtig gebacken. was mache ich falsch?
hier mein vba:
Sub Auswahl_Schaltfläche16_BeiKlick()
MsgBox "Das Speichern wird etwas dauern!"
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.Dialogs(xlDialogSaveAs).Show
If ActiveWorkbook.Saved = True Then
MsgBox "Speicherung erfolgreich"
Else
MsgBox "!!Es konnte nicht gespeichert werden!!"
End If
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
und trotz "Application.DisplayAlerts = False" wird mir die rückfrage "Speichern unter " reingedrückt. wo habe ich den klemmer?
danke!