Supportnet / Forum / Tabellenkalkulation
Makro
Frage
Hallo! Da bin ich wieder.
Ich habe ein Makro, wo zum schluß nicht nur mein Programm, sondern auch gleich Excel geschlossen wird Kann man das erweitern, dass der PC gleich herruntergefahren wird.
Beipiel:
ActiveWorkbook.Save`
´PC herunter fahren das ginge auch, er hat ja schon gespeichert ohne Excel zu schließen, geht dann automatisch.
Application.Run "Muster.xls´!ExcelBeenden"
´PC herunter fahren. nach dem Schlißen von Excel
Gruß
Völdy
Antwort 1 von coros
Moin Völdy,
mit nachfolgendem Makro wird die Exceldatei gesichert, Excel beendet und dann Windows heruntergefahren. Kopiere es in ein StandardModul und starte es über eine Befehlsschaltfläche.
Trägt man in der Zeile
anstelle der 1 eine 0 ein, wird Windows nicht heruntergefahren, sondern man wird nur abgemeldet.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
mit nachfolgendem Makro wird die Exceldatei gesichert, Excel beendet und dann Windows heruntergefahren. Kopiere es in ein StandardModul und starte es über eine Befehlsschaltfläche.
Option Explicit
Declare Function ExitWindowsEx Lib "user32" _
(ByVal Flags As Long, ByVal Reserved As Long) As Long
Sub Beenden_und_herunterfahren()
ThisWorkbook.Save
ExitWindowsEx 1, 0
Application.Quit
End SubTrägt man in der Zeile
ExitWindowsEx 1, 0anstelle der 1 eine 0 ein, wird Windows nicht heruntergefahren, sondern man wird nur abgemeldet.
Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.