ich habe eine Excel - Arbeitsmappe mit 5 Blättern(Seiten) und möchte, das beim schließen nur das 3. Blatt gespeichert wird.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Altername As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Altername, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = False
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Altername As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Altername, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Arrangementcalkulator As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Arrangementcalkulator.xls, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Arrangementcalkulator As String
Application.EnableEvents = False
Altername = Workbooks(1).Name
Sheets(3).Copy
ActiveWorkbook.SaveAs Filename:=Arrangementcalkulator.xls, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Workbooks(2).Close
Application.EnableEvents = True
End Sub