Makro fehler wenn Datei offen
01.04.2015 14:53:55
lau
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