Microsoft Excel

Herbers Excel/VBA-Archiv

Listenfeld laden, Mappe ohne speichern schliessen?

Betrifft: Listenfeld laden, Mappe ohne speichern schliessen? von: marc
Geschrieben am: 29.06.2008 20:20:26

hallo miteinander

habe ein problem mit dem schliessen einer mappe, folgenden code verwendete ich bis anhin:


Public Sub Startmenü_Beenden_Click()
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit

Application.DisplayAlerts = True
End Sub



nun habe ich eine combobox mit listenfeld in ein tabellenblatt gemacht. diese wird mit inhalt geladen sobald diese aktiviert wird.
jetzt wen ich diese mappe schliessen will wird jedesmal nach speichern gefragt, geht nicht mehr mit dem code zum schliessen ohne rückfrage!

weiss jemand wie da die lösung ist, allenfalls entladen der combobox oder besser gibts einen anderen code damit die mappe doch schliesst ohne eine speicherfrage???

wäre dankbar um eine hilfe.

gruess

  

Betrifft: AW: Listenfeld laden, Mappe ohne speichern schliessen? von: hary
Geschrieben am: 29.06.2008 20:39:58

Hallo Marc

Versuchs mal damit.



ActiveWorkbook.Save
    ActiveWorkbook.Saved = True
    ActiveWindow.Close



Gruss Hary


  

Betrifft: AW: Listenfeld laden, Mappe ohne speichern schliessen? von: marc
Geschrieben am: 29.06.2008 20:43:53

leider nicht die lösung soweit war ich auch schon.
da bleibt das excel offen und es schliesst mir "nur" die mappe nicht aber das programm.

danke trotzdem


  

Betrifft: AW: Listenfeld laden, Mappe ohne speichern schliessen? von: hary
Geschrieben am: 29.06.2008 20:57:32

Hier ist eine Probe Mappe von Alex. Die beendet auch Excel.

von: Alex
Geschrieben am: 30.06.2005 11:54:41

https://www.herber.de/bbs/user/24342.xls

Gruss Hary


  

Betrifft: AW: Listenfeld laden, Mappe ohne speichern schliessen? von: marc
Geschrieben am: 29.06.2008 20:59:59

so gehts jedenfalls:

Public Sub Startmenü_Beenden_Click()
Application.DisplayAlerts = False
ThisWorkbook.Saved = True
Application.Quit
ActiveWorkbook.Save
ActiveWorkbook.Saved = True
ActiveWindow.Close

Application.DisplayAlerts = True
End Sub



obs da was nicht braucht weiss ich nicht, funktioniert aber.

danke und gruess


 

Beiträge aus den Excel-Beispielen zum Thema "Listenfeld laden, Mappe ohne speichern schliessen?"