Laufzeitfehler "438"
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Auch Hallo,
und so?
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Not ThisWorkbook.Saved Then Application.Quit
End Sub
Leider nicht - da wird wieder geftrragt
Hast du sicher
genau diesen Code ausprobiert???
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Application.Quit
End Sub
Wenn ich den nämlich in deiner Beispielmappe eintrage, funktioniert es wunderbar!
Ja da kommt wieder das mit dem doppelten schließen.
Wahrscheinlich muss ich mich damit abfinden
Hallo,
tja, sorry, ... wenn ich Quit mit zwei "T" schreibe, dann sollte der Code aussteigen.
Aber selbst der Papst muß sterben. Dann kann ich mir auch mal einen Fehler erlauben, :05:
Tut mir aber trotzdem leid.
ich habs mit einem und mit zwei T versucht- hilft alles nix grad.
Aber danke für eure Hilfe!!!
Hallo Ihr Zwei,
@MisterBurns
Hallo Bernie, bei deinem Code bleibt Excel offen (nicht die Datei! die wird geschlossen)
@
Basti5
bei mir funktioniert es mit deiner Beispieldatei. Der Code muss natürlich in DieseArbeitsmappe. Der Code CloseBook kannst Du löschen.
@Steffl: Komischerweise bei mir nicht. Wozu sollte Application.Quit sonst gut sein, wenn nicht um Excel zu beenden?
Ok Leute,
ich bin euch wirklich sehr dankbar - aber ich bin einfach zu blöd.
Bei mir funzt es gar nicht.