ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Close
End Sub
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
ActiveWorkbook.Close
End Sub
GrußPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.Close
End Sub
Sub test()
For i = 1 to 100
ActiveWorkbook.Close savechanges:=True
next i
End Sub
Auf diese Weise verwende ich das, um eine "Zerteilerdatei" anzuwenden.