Makro sehr langsam
25.01.2023 10:58:08
JuliChen
Sub report_fixieren_in_neue_datei()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.StatusBar = ""
Application.Calculation = xlCalculationManual
Application.CalculateBeforeSave = False
'Fixieren
Workbooks.Add
akt_dat_new = ActiveWorkbook.Name
akt_register_new = ActiveSheet.Name
Workbooks("Report2023.xlsm").Activate
Sheets("Tab1").Select
Sheets("Tab1").Copy Before:=Workbooks(akt_dat_new).Sheets(akt_register_new)
Workbooks(akt_dat_new).Activate
Sheets("Tab1").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("Report2023.xlsm").Activate
Sheets("Tab2").Select
Sheets("Tab2").Copy Before:=Workbooks(akt_dat_new).Sheets(akt_register_new)
Workbooks(akt_dat_new).Activate
Sheets("Tab2").Select
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("Report2023.xlsm").Activate
usw. bis Blatt 31.
Hat jemand Optimierungsideen?
LG
Julia