Office: excel bleibt bei Datei-schliessen via Makro geöffnet

Hi Ashley,

Was kannst du nicht sagen - ob noch andere Arbeitsmappen offen sind? Das hat doch nichts damit zu tun, was in der aktiven Arbeitsmappe passiert, denn mit ActiveWorkbook sprichts du ja nur die gerade aktive Arbeitsmappe an - alle anderen offenen (falls noch welche offen sind) nicht.

Bis später,
Karin

 

Hi Karin.

Der Code:
Sub Beenden()
ActiveWorkbook.Close True
Application.Quit
End Sub
schließt die Tabelle und es ist auch keine andere zu sehen also wohl auch nicht offen. Nur besteht das problem nach wie vor und zwar schließt das Excel nicht und genau das ist der Knackpunkt.
Ich habe durch unzählige Seiten geklickt aber eine passende Lösung fand ich nicht.

Liebe Grüße,
Ashley

 

Hi Ashley,

ich habe jetzt dein Makro so wie es ist getestet - bei mir wird die Arbeitsmappe und anschließend auch Excel geschlossen.
Vielleicht hast du bei den Optionen etwas anderes eingestellt. Ich habe unter Erweitert -> Allgemein -> "Andere Anwendungen deaktivieren..." nicht aktiviert - und du?

Bis später,
Karin

 

Hi Karin,

in andere anwendungen ignorieren ist kein Haken gesetzt. Nachdem ich einen Haken reingesetzt habe bekam ich eine Fehlermeldund also Haken wieder raus.
Ich werde aus dem ganzen nicht schlau.

Liebe Grüße,
Ashley

 

Hi Karin,

jetzt hat es endlich funktioniert und klappt auch so wie es soll.
Vielen lieben Dank an Dich


Liebe Grüße,
Ashley

 

Hi Ashley,

und wie sieht deine Lösung aus, damit es bei dir funktioniert?

Bis später,
Karin

 

Hallo Karin.

Stammdaten
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$4" Then Application.EnableEvents = False
Beenden
End Sub

Module
Sub Beenden()
ActiveWorkbook.Close True
Application.Quit
End Sub
Dadurch das ich viele Möglichkeiten sperre hatte ich
Application.EnableEvents = False
in Beenden eingetragen und es war mir nicht bewusst, das das eine so große Wirkung auf den Ablauf hatte und gab es bisher auch nicht mit an. Nachdem ich das nach Stammdaten übertrug funktionierte alles so wie es sollte Und da ich das hier nicht mit angab war das ganze ganz alleine mein Fehler und entschuldige mich dafür.

Liebe Grüße,
Ashley

 

Guten Morgen, Karin.

Gibt es eine Möglichkeit das automatische speichern unter einem bestimmten Datum durchzuführen?

Liebe Grüße,
Ashley

 

Hi Ashley,

was verstesht du unter "automatisches Speichern"?

Bis später,
Karin

 

Guten Morgen, Karin.

Ich habe das X oben in der Ecke deaktiviert und dafür ein Feld mit Beenden erstellt. Durch das VBA:
Sub Beenden()
ActiveWorkbook.Close True
Application.Quit
End Sub
klappt das sehr gut nur überschreibt es dadurch die alten Daten. Da ich auch ein Feld habe in dem das Datum eingetragen wird würde ich gerne die Speicherung unter dem in dem Feld eingegeben Datum speichern und kann so später noch einmal nachschauen.

Liebe Grüße und vielen Dank im voraus,
Ashley

 

Hi Aschley,

ich würde gleich das aktuelle Datum verwenden und in diesem Fall die Sub anders schreiben - ich habe es jetzt nicht getestet, aber so nach diesem Prinzip:

Code:

Sub Beenden()
   ActiveWorkbook.SaveAs AcitveWorkbook.Name & Date
   Application.Quit
End Sub

Es gibt dabei nur ein kleines Problem: falls du die mit dem Datum gespeicherte Mappe am selben Tag noch einmal öffnest und dann schließt, gibt das einen Fehler, weil man SaveAs nicht mit dem selben Dateinamen benutzen kann. Günstiger wäre in diesem Fall, wenn du Datum und Uhrzeit verwendest, wobei du allerdings die ":" entweder weglassen oder z.B. in "_" umwandeln musst, da ":" im Dateinamen nicht erlaubt sind - etwa so in der Art:

Code:

   ActiveWorkbook.SaveAs AcitveWorkbook.Name & Application.Substitute(Now, ":", "_")

Bis später,
Karin

 

Hallo Karin.

Dankeschön.
Das könnte allerdings das Problem geben das ich beim aufrufen einer weit vorausgegangener Tabelle diese mit einem aktuellen Datum abspeichert.

Liebe Grüße,
Ashley

 

Hi Ashley,

dann solltest du generell eine If-Abfrage einbauen, ob die Mappe beim Schließen gespeichert werden soll oder nicht, denn so wie dein Code derzeit ist würde deine Mappe ja andernfalls unter genau demselben Datum abgespeichert werden sollen und das gibt definitiv einen Fehler. Versuche es einfach mal.

Damit anstelle des aktuellen Datums das Datum aus eine Zelle verwendet wird, musst du im 1. Codefragment anstelle von Date dieses verwenden: Worksheets("TabelleSoUndSo").Range("A1") <== Tabellename und Zelle selbstverständlich anpassen.

Bis später,
Karin

 

Hallo Karin.

Ist das so richtig?
Sub Beenden()
Worksheets("Ernährung").Range("M13")
Application.Quit
End Sub

Liebe Grüße,
Ahley

 

Hi Ashley,

na da gehört doch noch das "Speichern unter" davor:

Code:

ActiveWorkbook.SaveAs Worksheets("Ernährung").Range("M13")

Bis später,
Karin