Automatische Aktualisierung
04.08.2015 10:56:15
Michael
ich ziehe mir aus Access Daten auf täglicher Basis in Excel. Die Datenbank ist verknüpft mit dem Sheet und wenn ich auf Refresh All drücke dann zieht sich das Sheet die Daten.
Ich würde gerne ein einfaches Makro schreiben mit dem ich
1. zuerst die automatische Berechnung ausschalte
2. die Daten aus Access ziehe über Refresh All
3. die automatische Berechnung wieder einschalte
Das Problem, ist die automatsiche Berechnung an dauert das aktualisieren des Sheets wesentlich länger. Das möchte ich mit dem Makro etwas vereinfachen. Folgenden Code hab ich bereits gefunden:
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
Workbooks(3).RefreshAll
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
.EnableEvents = True
End With
Gruß
Michael