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:
Hallo Paule,
Zitat: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.
Hallo Peter, :19:
Zitat: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.
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.
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
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
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.
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: