VBA Verzögerung Ausführung
15.11.2020 14:14:01
websnake75
Nun meine Frage, kann man in das Makro vielleicht eine Art zeitliche Verzögerung einbauen, damit die Aktualisierung durchgeführt werden kann? Oder gibt es einen anderen Weg, dieses Problem zu lösen?
Ich sende den bisherigenn Code hier einmal.
Sub Makro1()
' Makro1 Makro
ChDir "Z:\HDFB GmbH"
Workbooks.Open Filename:= _
"Z:\HDFB GmbH\700000 - Uni Kita HGW Rohbau - Kostenstellenstand - v06.xlsx"
ActiveWorkbook.RefreshAll
Sheets("Auswertung-ER").Select
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Übersicht").Select
ActiveWorkbook.Save
ActiveWindow.Close
ChDir "Z:\HDFB GmbH"
Workbooks.Open Filename:= _
"Z:\HDFB GmbH\700300 - EFH Hanshagen - Putz - Kostenstellenstand - v06.xlsx"
ActiveWorkbook.RefreshAll
Sheets("Auswertung-ER").Select
Range("A4").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Übersicht").Select
ActiveWorkbook.Save
ActiveWindow.Close
End Sub
GrußRonald