Voor een vrij groot document ben ik aan het proberen om de berekeningstijden omlaag te brengen, maar kom uit op een vreemd fenomeen.
Onderstaande de VBA code
Als ik voor bovenstaande code:
'alles' laat lopen dan duurt het 36 seconden
'readdatafromclosefile' laat lopen dan duurt het 5 seconden
'berekenen' laat lopen dan duurt het 10 seconden.
'alles' = 'readdatafromclosefile' + 'berekenen'
36 = 5 + 10
Bij mij is 5 + 10 = 15, geen 36...
Hoe kan het dat dit verschil aanwezig is en hoe krijg ik het weg?
Onderstaande de VBA code
Code:
Sub alles()
Call readdatafromclosefile
Call berekenen
End Sub
Sub readdatafromclosefile()
Application.Calculation = xlManual
Application.ScreenUpdating = True
Application.DisplayAlerts = False
Dim src As Workbook
Dim pad As String
Dim Stammap As String
Worksheets("Stammap meetvoorschrift").Range("B2:H500").Copy
Worksheets("Stammap meetvoorschrift").Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("Stammap meetvoorschrift").Select
Range("J2:AC2").Select
Selection.AutoFill Destination:=Range("J2:AC500"), Type:=xlFillDefault
Range("J2").Select
End Sub
Sub berekenen()
Calculate
End Sub
Als ik voor bovenstaande code:
'alles' laat lopen dan duurt het 36 seconden
'readdatafromclosefile' laat lopen dan duurt het 5 seconden
'berekenen' laat lopen dan duurt het 10 seconden.
'alles' = 'readdatafromclosefile' + 'berekenen'
36 = 5 + 10
Bij mij is 5 + 10 = 15, geen 36...
Hoe kan het dat dit verschil aanwezig is en hoe krijg ik het weg?