|
Hallo ihr beiden.
ich hatte testweise die Anweisung " Application.Calculation = xlCalculationAutomatic" in dem Makro nach oben vor den Beginn der For-Schleife in Verbindung mit einem Exit gesetzt. Da lief es problemlos durch.
Dim PQ_start As Double, _
PQ_Ende As Double, _
PQ_Dauer As Double, _
wk_range As String, _
PQ_name As String, PQ_name_pur As String, _
lobj_log As ListObject, _
log_rows As Integer
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
wk_count = Sheets("T1").ListObjects("tbl_remote_refresh").ListRows.Count
log_rows = Sheets("Log").ListObjects("tbl_Log").ListRows.Count
wk_now = DateTime.Now
WB_name = ActiveWorkbook.Name
Application.Calculation = xlCalculationAutomatic
Exit Sub
For idx = 1 To wk_count ...
Der Unterschied ist nun, dass Innerhalb der For-Schleife 2 Mappen geöffnet Power Queries ausgeführt, die Mappen im Falle von Änderungen gesichert und wieder geschlossen werden.
mal getestet, was xlCalculationAutomatic für einen Wert hat?
Da er ja, wenn ich aus der Fehlermeldung in den Debugger gehe, die betreffende Zeile anzeigt, sehe ich den Wert "-4105". Laut MS-Doku ist sie somit bereits aktiv. Aber der gefundene Code:
Select Case Application.Calculation
Case xlCalculationManual
Application.Calculation = xlCalculationAutomatic
End Select
bringt mir zun die Fehlermeldung "Laufzeitfehler 13: Typen unverträglich".
Wie muss ich somit vorgehen, um die automatische Berechnung nur einzuschalten, wenn diese zum Zeitpunkt nicht aktiv ist?
|