09.11.2017, 20:40
[attachment=14292]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????
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????