Mappe mit einem Makro automatisch im Hintergrund

[Käpt'n Blaubär]

Hallo Case,

ah ja, ... nun habe ich das auch gesehen.
Danke für die Info ... da habe ich schon ein Nasenfahrrad, und dann sowas.
Na ja, das ist eben das zunehmende Alter  :05:

[Paule]

Richtig verstanden :100:

[Käpt'n Blaubär]

Hallo Paule,

Richtig verstanden [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

... fragt sich nur, ob es da auch einen Lernerfolg für Dich gibt.
Aber, wie auch immer, Du hast ja nun eine Lösung.

[Case]

Hallo Peter, :19:

Na ja, das ist eben das zunehmende Alter  [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Nun - ich bin 60. Möchte nun dein Alter nicht an Hand deines Bildes schätzen - wer will sich da schon in die Nesseln setzen.

[Käpt'n Blaubär]

Hallo Case,

ich bin einer der wenigen Forenuser, die kein Problem damit haben, daß das Alter erfahrbar ist.
Drum kann jeder, der hier im Forum auf meinen Namen klickt, lesen, daß ich am 16.08.1946
geboren wurde.
Inzwischen darf ich aber auch heute, am 01.08. Geburtstag feiern. Ich lebe seit 01.08.2013 von
geborgter Zeit und genieße darum sehr bewußt jeden neuen Tag meines zweiten Lebens.

[Paule]

Vielen Dank
Habe es hinbekommen


Private Sub Workbook_Open()
    Workbooks.Open Filename:= _
        "\\Temp\Test" & Format(Date, "yyyymmdd") & "mappe1.xlsx" _
        , UpdateLinks:=3, IgnoreReadOnlyRecommended:=True
    Calculate
    ActiveWorkbook.Close False
End Sub

[Paule]

So das ganze Passt schon wunderbar bis auf eins. 

Wenn die Mappe geöffnet wird sieht man die und das ist störend.  
ich bekomme die datumsrückwertsmappe1 nicht in den hintergrund. 

Hier mal der bereits fertige Code

Private Sub Workbook_Open()
Application.DisplayAlerts = False
On Error GoTo errExit
Workbooks.Open Filename:= _
        "C:\Temp\Test\" & Format(Date, "yyyymmdd") & "mappe1.xlsx" _
        , UpdateLinks:=3, IgnoreReadOnlyRecommended:=True
    Calculate
    ActiveWorkbook.Close False
    Application.DisplayAlerts = True
Exit Sub
errExit:
Select Case Err.Number
 Case 1004
   MsgBox "Keine Aktuellen Daten vorhanden !!!", 64
  Case Else
MsgBox "Es ist ein Fehler aufgetreten!" & vbCr & vbCr _
& "Fehlernummer: " & Err.Number & vbCr _
& "Fehlerbeschreibung: " & Err.Description, 48
End Select
End Sub


Grüßle Paul

[Case]

Hallo Paul, :19:

schreibe es so der Spur nach: :21:

Code:

Dim wkbBook As Workbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' .......... Weitere Codezeile(n)

Dann...

Code:

Set wkbBook = Workbooks.Open(Filename:= _
        "C:\Temp\Test\" & Format(Date, "yyyymmdd") & "mappe1.xlsx" _
        , UpdateLinks:=3, IgnoreReadOnlyRecommended:=True)
    ThisWorkbook.Activate
    wkbBook.Parent.Calculate

wkbBook.Close False
' .......... Dein weiterer Code

Am Ende...

Code:

Set wkbBook = Nothing
Application.ScreenUpdating = True

Achte drauf, dass das "Application.DisplayAlerts = True" bei einem Fehler nicht mehr zurückgesetzt wird. Das müsstest Du in die Fehlerbehandlung mit aufnehmen. Bei "Application.ScreenUpdating = False" ist das nicht so tragisch, das wird automatisch auf True gesetzt.

[Paule]

So läuft es Super,
kann auch als Makro (Aktualisieren) mit nem Button eingebaut werden.

Sub Aktualisieren()

oder

Private Sub Workbook_Open()

Application.Wait Now + TimeSerial(0, 0, 1 \ 2) 'wartet 1 Sekunden
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error GoTo errExit
      
Workbooks.Open Filename:= _
        "C:\Temp\" & Format(Date, "yyyymmdd") & "mappe1.xlsx" _
        , UpdateLinks:=3, IgnoreReadOnlyRecommended:=True
    Calculate
    ActiveWorkbook.Close False
Exit Sub
errExit:
Select Case Err.Number
 Case 1004
   MsgBox "Keine Aktuellen Daten vorhanden !!!", 64
  Case Else
MsgBox "Es ist ein Fehler aufgetreten!" & vbCr & vbCr _
& "Fehlernummer: " & Err.Number & vbCr _
& "Fehlerbeschreibung: " & Err.Description, 48
End Select
End Sub
:15: