Makro automatisch starten beim öffnen der Mappe
31.03.2015 17:01:21
lau
folgendes Makro läuft einwandfrei im Modul.
Allerdings möchte ich beim öffnen der Datei, das das Makro automatisch startet und durchläuft.
Hier tritt aber eine Fehlermeldung auf und das Makro läuft nicht.
Habt ihr einen Tipp, woran dies liegen könnte?
vielen Dank.
Option Explict
Private Sub workbook_open()
Workbooks.Open fileName:= _
"\\bg..\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("FP.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("FP.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("FP.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("FP.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
MsgBox (" Es wird die PFC (Stand 10:00 Uhr) Datei verwendet vom: ") & Format(Date, "dd-mm-yyyy") & "SC"