Rechnet trotz Calculation auf manual
16.11.2017 12:40:43
Christian
ich bin leider - wieder einmal ratlos. Ich habe in dem folgendem Sub die Berechnung auf manuell gestellt, ob die ganzen Rechenzeiten zu vermeiden. Aber er rechnet sich wund... trotzdem. Das Tabellenblatt "Pipeline" ist dabei xlveryhidden. Hat das vielleicht damit etwas zu tun. Könnte Ihr bitte wieder einmal so sympathisch helfen?
Vielen Dank und viele Grüße
Christian
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableCancelKey = xlDisabled
If Worksheets("Pipeline").Range("I14") = 0 Then Exit Sub
Application.Calculation = xlCalculationManual
Dim i As Integer
With Worksheets("Pipeline")
For i = 18 To 1016
If .Cells(i, 9).Value "" Then .Cells(i, 8) = 1
Next i
End With
Application.Calculation = xlCalculationAutomatic
End Sub