Das Makro speichert und schließt die aktuell geöffnete Arbeitsmappe.
Der Speicherpfad muss nicht definiert werden, da einfach in das gleiche Verzeichnis mir dem gleichen Namen gespeichert wird. Es ist also das gleiche als ob man Strg + S drücken würde.
Mit dem Close-Befehl wird nur die Arbeitsmappe geschlossen, nicht die ganze Appliaktion Excel.
Code
Sub ArbeitsmappeSpeichernSchließen()
'
' Schließt die Arbeitsmappe und speichert alle Änderungen automatisch
'
With ActiveWorkbook
.Sheets(1).Range("a1").Value = "Letzte Änderung " & Now & " vom Anwender " & Application.UserName
.Close savechanges:=True
End With
Application.DisplayAlerts = False
End Sub
ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
Trinkt gerne fairen Kaffee und freut sich deshalb sehr über jede Spende.
• 
