wenn die Datei offen ist, funktioniert unteres Makro nicht mehr, da die Datei durch das Makro ein zweites Mal geöffnet sind.
Wie kann ich im Makro dies behenben?
Sub PFC_Copy()
Workbooks.Open fileName:= _
"\\bgk\P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx"
Range("E19").Select
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 17.5
.Left = 1416.25
End With
Windows("3.0.xlsm").Activate
With ActiveWindow
.Top = 1.75
.Left = 6.25
End With
Windows("P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx").Activate
With ActiveWindow
.Top = 56.5
.Left = 1416.25
End With
With ActiveWindow
.Width = 1397.25
.Height = 670.5
End With
With ActiveWindow
.Top = 5.5
.Left = 1453.75
End With
Sheets("All_Mid_PFC").Select
Range("A1:G70").Select
Selection.Copy
Windows("3.0.xlsm").Activate
Sheets("All_Mid_PFC").Select
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A1").Select
ActiveSheet.Paste
Sheets("MidScreen").Select
Windows("P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx").Activate
Sheets("MidScreen").Select
Range("A1:G37").Select
Application.CutCopyMode = False
Selection.Copy
Windows("3.0.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Range("J38").Select
Windows("P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx").Activate
Range("A2:G37").Select
Selection.Copy
Windows("3.0.xlsm").Activate
Sheets("All_Mid_PFC").Select
Range("A71").Select
ActiveSheet.Paste
Sheets("Calculator").Select
Range("A1").Select
Application.DisplayAlerts = False
Windows("P-PM_curves-" & Format(Date, "yyyy-mm-dd") & ".xlsx").Close
End Sub