Arbeitsmappe Speichern und Schließen

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 Applikation 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

Gib mir gerne einen Kaffee ☕ aus ❗️

Wenn dir meine Beiträge gefallen und geholfen haben, dann kannst du mir gerne einen Kaffee ☕️ ausgeben.

•

Bitcoin Address: bc1qfuz93hw2fhdvfuxf6mlxlk8zdadvnktppkzqzj

Follow Me❗️

Mastodon • Mastodon RSS • codeberg.org/sst • RSS