Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon DanielG vom 26.11.2020, 13:55 Options

Beenden von Excel via Makro

Hallo

ich versuche nach einem Druckvorgang mein Excel zu beenden. Derzeit wird leider nur das Workbook geschlossen und das Excelfenster bleibt vorhanden. Hier mein Makro

Private Sub Workbook_Open()
    Application.ActivePrinter = "pdfFactory Pro auf FPP3:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "pdfFactory Pro auf FPP3:"
        
    Application.DisplayAlerts = False
    Workbooks.Close
    Application.Quit
    ThisWorkbook.Saved = True

End Sub

Weiß jemand wo das Problem ist, dass Excel nicht automatisch mit beenden wird? Drucken und schließen des Workbooks funktionieren problemlos.

Danke & Gruß
Daniel

Antwort schreiben

Antwort 1 von nighty vom 26.11.2020, 14:37 Options

hi daniel :-)

was du da geschrieben hast ist ungefaehr so, wie sich den ast abzusaegen auf dem man sitzt *hihi*

Workbooks.Close

ist dein genickbrecher :-))

lass das weg bitte,da sonst ja keine makroausfuehrung mehr stattfinden kann :-)

gruss nighty

Antwort 2 von DanielG vom 26.11.2020, 14:50 Options

Hi Nighty

danke für deine schnelle Hilfe. Manchmal sieht man vor lauter Bäumen den Wald nicht.

Vielen Dank. Funzt bestens

Gruß
Daniel

Antwort 3 von Arno_Nym vom 26.11.2020, 14:53 Options

Und "ThisWorkbook.Saved = True" zu versuchen, nachdem man "Application.Quit" gemacht hat, ist auch ein wenig unlogisch ;o)

Arno

Antwort 4 von nighty vom 26.11.2020, 14:57 Options

hi arno :-)

ups

mein retter *rot werd*

gruss nighty

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken