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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen