Makobefehl Userform schließen Mappe speichern

[MdeJong]

  Mappe Neu.xlsm (Größe: 31,98 KB / Downloads: 2) Hallo alle zusammen,

als Excel Neuling in Sachen Makro, habe ich hier echt schon super Hilfe bekommen.

Habe ein neues Anliegen.

Ich habe eine Haupt Userform  "Hauptmenü"
In der kann ich eine 2. Userform öffnen und diese auch schließen, das ich wieder in der ersten Userform bin.

Nun möchte ich in der ersten, auch Excel beenden und die Mappe gleichzeitig speichern.
Nur wie?

Bei Neustart der Datei, soll gleich in der Userform "Hauptmenü gestartet werden.


Das bekommt bestimmt jemand von euch hin.....oder?  :)

Danke schon einmal.

Gruß

MdeJong

[Werner.M]

Hallo,

einen Speichern/Schließen Button auf die UserForm und folgenden Code ins Click-Event des Buttons:

Code:

ThisWorkbook.Close SaveChanges:=True

Wenn Excel komplett geschlossen werden soll

Code:

ThisWorkbook.SaveClose
Applikation.Quit

Für den Start der UserForm beim Öffnen der Datei folgenden Code ins Workbook.Open Event von Diese Arbeitsmappe:

Code:

UserForm1.Show 'Name der UserForm anpassen

Code:

Gruß Werner

[MdeJong]

Hallo,

einen Speichern/Schließen Button auf die UserForm und folgenden Code ins Click-Event des Buttons:

Code:

ThisWorkbook.Close SaveChanges:=True

Wenn Excel komplett geschlossen werden soll

Code:

ThisWorkbook.SaveClose
Applikation.Quit

Für den Start der UserForm beim Öffnen der Datei folgenden Code ins Workbook.Open Event von Diese Arbeitsmappe:

Code:

UserForm1.Show 'Name der UserForm anpassen

Code:

Gruß Werner

Vielen Dank für deine Hilfe..... Bei diesem "ThisWorkbook.SaveClose

Applikation.Quit bekomme ich einen Fehler und er markiert den Teil "ThisWorkbook.SaveClose"

[Steffl]

Hallo,

versuchs mal mit

Code:

ThisWorkbook.Save

[MdeJong]

Hallo,

versuchs mal mit

Code:

ThisWorkbook.Save

Hallo Steffl....das speichern klappt......und wie bringe ich zusätzlich dem Code bei, auch mit dem Klick die ganze Mappe nach dem speichern zu beenden?  :)

[Steffl]

Hallo,

wie wäre es mit

Code:

Application.Quit

[MdeJong]

    Hallo Steffl

er schließt etwas, aber das bleibt stehen

[MdeJong]

Hallo Steffl,



so:

Private Sub CommandButton4_Click()
Application.Quit
ThisWorkbook.Close Savechanges:=False
End Sub


beendet er alles....speichert nur nicht...auch wenn ich False auf True setze

[MdeJong]

  Mappe Neu - Kopie.xlsm (Größe: 28,64 KB / Downloads: 3) Dieser Code beendet meine userform und Schließt Excel:


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????

[Steffl]

Hallo,

kommt die Abfrage? Wenn nein, dann gibt es keine Änderung in der Datei. Im Code eine Variable eingefügt und den Code eingerückt.

Code:

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