mreske
Goto Top

Excel Datei per Schaltfläche schließen (ohne speichern) und gleich wieder neu öffnen

Hallo,

mich würde mal interessieren ob es möglich ist, dass man eine Exceldatei per Schaltfläche schließt (ohne speichern) und dann dasselbe Dokument danach gleich wieder öffnet.

Hintergrund ist, dass überall im Dokument Daten eingegeben werden, danach das Dokument als PDF gespeichert wird und danach gleich wieder "leer" zur Verfügung stehen soll.
Natürlich könnte ich jetzt per Makro alle Einträge löschen.
Aber ein Schließen (ohne speichern) und neu öffnen wäre mir lieber, zumal ich das Löschen-Makro immer wieder anpassen müsste, wenn in weiteren Zellen Einträge hinzukämen.

Vielen Dank im Voraus

Content-Key: 355410

Url: https://administrator.de/contentid/355410

Printed on: April 25, 2024 at 09:04 o'clock

Member: MrCount
MrCount Nov 20, 2017 at 08:53:42 (UTC)
Goto Top
Servus,

versuche es mal so (ungetestet):

Sub ReOpen()
    Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name  
End Sub
Member: MrCount
Solution MrCount Nov 20, 2017 at 08:59:09 (UTC)
Goto Top
Ohne Abfrage:
Sub ReOpen()
    Application.DisplayAlerts = False
    Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name  
    Application.DisplayAlerts = True
End Sub
Member: mreske
mreske Nov 20, 2017 updated at 10:39:42 (UTC)
Goto Top
Vielen Dank für die schnellen Antworten (wie immer).
Ich habe gerade selber auch eine Möglichkeit gefunden:
Einfach, während das Dokument geöffnet ist, es per Makro nochmal öffnen.
Dann erscheint ja eine Meldung, dass das Dokument bereits geöffnet ist.
"Sie verlieren damit alle Änderungen, die Sie eingegeben haben. Soll das Dokument trotzdem geöffnet werden?"

Diese Meldung mit "Ja" bestätigen.
Und schon öffnet sich das Dokument neu.

Jetzt müsste man nur noch diese Meldung so umgehen:

Application.DisplayAlerts = False
Workbooks.Open Filename:= "...\....xlsm"
Application.DisplayAlerts = True

Vielen Dank