Prbleme mit einem Code um Exel zu beenden uns speichern der Datei

[MdeJong]

  Mappe Neu - Kopie.xlsm (Größe: 28,64 KB / Downloads: 3) Hallo

habe mit diesem Code ein Problem:

Private Sub CommandButton4_Click()
If ThisWorkbook.Saved = False Then
Antwort = MsgBox("Sollen Änderungen gespeichert werden.", vbYesNo)
If Antwort = vbYes Then
ThisWorkbook.Save
End If
End If
ThisWorkbook.Saved = True
Application.Quit 'Excel wird geschlossen
End Sub

Speichert nur nicht die Datei????

[Käpt'n Blaubär]

Hallo,

... und warum nun ein zweiter Thread zur gleichen Frage?

[MdeJong]

ich hatte gedacht, den anderen habe ich beendet??

eigentlich ist es ein anderes Problem, als im letzten Thread?

[schauan]

Hallöchen,

hast Du eventuell nix geändert? Wenn ich nach dem Öffnen der Datei und Erscheinen des Userform einfach nur auf Speichern drücke, passiert nix. Wenn ich was ändere und dann das userform ausführe und den Button betätige, funktioniert das Speichern.