VBA für einmalige Aktualisierung am Tag

Guten Abend,
ich bin mit VBA nur seit einer Woche beschäfigt und suche seit Tagen einen VBA-Code der
a) alle die SQL Tabellen aktualisiert (also RefreshAll)
b) den ganzen Arbeitsblatt berechnet (also Berechnung soll auf manuell sein)
c) die Pivottabellen aktualisiert
Wichtig ist aber, dass der Code nur einmal am Tag läuft, denn ich schaue die Ergebnisse in einem späteren Zeitpunkt.
Durch Windows Einstellungen hab ich erstmal die Uhrzeit zum Öffnen des Excel Files um 7:20 eingestellt.
Beim Öffnen soll der VBA-Code prüfen dass er an dem Tag nicht ausgeführt wurde und evtl. in der oben genannten Reihenfolge laufen.
Ich dachte ich könnte den Makrorekorder nutzen aber dann weiß ich nicht wie in den Code eingeben, dass zwischen a) und b) mind. 7-9 Min abwarten soll. Generell bräuchte ich aber eure Hilfe, besonders um zu vermeiden dass der Code beim Öffnen immer wieder läuft.
Ich bedanke mich im Voraus und hoffe auf eure Hilfe. :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Option Private Module Public Sub Start() Const RUN_DATE As String = "Gelaufen" Dim objName As Name Dim dtmRunDate As Date For Each objName In ThisWorkbook.Names If objName.Name = RUN_DATE Then Exit For Next If objName Is Nothing Then Call ThisWorkbook.Names.Add(Name:=RUN_DATE, _ RefersTo:=Array(Date - 1), Visible:=False) Else Set objName = Nothing End If dtmRunDate = CDate(Evaluate(RUN_DATE)(1)) If dtmRunDate

Public Sub Start() Const RUN_DATE As String = "Gelaufen" Dim objName As Name Dim dtmRunDate As Date For Each objName In ThisWorkbook.Names If objName.Name = RUN_DATE Then Exit For Next If objName Is Nothing Then Call ThisWorkbook.Names.Add(Name:=RUN_DATE, _ RefersTo:=Array(Date - 1), Visible:=False) Else Set objName = Nothing End If dtmRunDate = CDate(Evaluate(RUN_DATE)(1)) If dtmRunDate

Hallo Alessio,
die Neuberechnung und die Aktualisierung der Pivotberichte muss man mit einem 2. Makro durchführen, dass per OnTime-Methode zeitverzögert gestartet wird.
Was ich nicht 100% weiss: Wird das Ereignis-Makro "Workbook_Open" auch gestartet, wenn die Datei via Windows-Einstellunen zu einer bestimmten Uhrzeit geöffnet wird.
Gruß
Franz

'Code unter "DieseArbeitsmappe" der Datei
Private Sub Workbook_Open()
Call prcUpdateDatei
End Sub

'Code in einem allgemeinen Modul der Datei
Sub prcUpdateDatei()
' prcUpdateDatei Makro
' Aktualisieren der SQL-Abfragen,neu Berechnen der Arbeitsmappe, und Aktualisieren _
der Pivot-Berichte
Dim sDate As String
'letztes Aktualisierungsdatum aus Dokumenteigenschaft "Kommentar" einlesen.
sDate = ThisWorkbook.BuiltinDocumentProperties("Comments")
If IsDate(sDate) Then
If CDate(sDate) = Date Then
MsgBox "Abfragen der Datei wurden heute schon aktualisiert", vbOKOnly, _
"Makro: prcUpdateDatei" 'nur zum Testen
Exit Sub
End If
End If
Application.Calculation = xlManual
ThisWorkbook.RefreshAll
'in 9 Minuten Mappe neu berechnen und Pivotberichte aktualiseren
Application.OnTime Earliesttime:=Now + TimeSerial(Hour:=0, Minute:=9, Second:=0), _
Procedure:="prcCalculate_and_Pivot_Refresh"
End Sub
Sub prcCalculate_and_Pivot_Refresh()
Dim wks As Worksheet
Dim pvTab As PivotTable
MsgBox "Jetzt wird neu berechnet und Pivot-Berichte aktualisiert", vbOKOnly, _
"Makro: prcCalculate_and_Pivot_Refresh" 'nur zum Testen
Application.Calculate
For Each wks In ThisWorkbook.Worksheets
For Each pvTab In wks.PivotTables
pvTab.RefreshTable
Next
Next
'Aktualisierungsdatum in Dokumenteigenschaft "Kommentar" speichern.
ThisWorkbook.BuiltinDocumentProperties("Comments") = Format(Date, "YYYY-MM-DD")
End Sub

Beliebteste Forumthreads (12 Monate)

VBA für einmalige Aktualisierung am Tag

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA für einmalige Aktualisierung am Tag

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread