[
attachment=14284]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
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
(09.11.2017, 17:04)Werner.M schrieb: [ -> ]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
Vielen Dank für deine Hilfe..... Bei diesem "
ThisWorkbook.SaveClose
Applikation.Quit bekomme ich einen Fehler und er markiert den Teil "ThisWorkbook.SaveClose"
(09.11.2017, 18:11)Steffl schrieb: [ -> ]Hallo,
versuchs mal mit
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? :)
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
[
attachment=14291]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????
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