Ich möchte ein Makro zum schließen einer Excel-Datei erstellen.
Alles, was ich aber aufzeichen kann, ist dieses, dann ist Ende der Vorstellung:
Sub Makro_schließen()
' Makro_schließen Makro
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub
Sub Makro_schließen()
' Makro_schließen Makro
ActiveWorkbook.RunAutoMacros Which:=xlAutoClose
End Sub
Sub ExcelEnde()
Dim objWorkbook As Workbook
If MsgBox("Excel schliessen OHNE Änderung?", vbYesNo, "Info") = vbYes Then
For Each objWorkbook In Application.Workbooks
objWorkbook.Saved = True
Next
Application.Quit
End If
End Sub
Sub erstmal_dieses_Blatt_speichern()
' erstmal_dieses_Blatt_speichern Makro
Range("A4").Select
Selection.Cut
Application.CutCopyMode = False
ActiveWorkbook.Save
End Sub