Registriert seit: 22.10.2017
Version(en): 2016
09.11.2017, 20:40
(Dieser Beitrag wurde zuletzt bearbeitet: 09.11.2017, 20:41 von 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????
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo,
... und warum nun ein zweiter Thread zur gleichen Frage?
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 22.10.2017
Version(en): 2016
ich hatte gedacht, den anderen habe ich beendet??
eigentlich ist es ein anderes Problem, als im letzten Thread?
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
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.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)