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

Ausgedruckt am: 28.03.2024 um 21:03 Uhr

Mitglied: MrCount
MrCount 20.11.2017 um 09:53:42 Uhr
Goto Top
Servus,

versuche es mal so (ungetestet):

Sub ReOpen()
    Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name  
End Sub
Mitglied: MrCount
Lösung MrCount 20.11.2017 um 09:59:09 Uhr
Goto Top
Ohne Abfrage:
Sub ReOpen()
    Application.DisplayAlerts = False
    Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name  
    Application.DisplayAlerts = True
End Sub
Mitglied: mreske
mreske 20.11.2017 aktualisiert um 11:39:42 Uhr
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