werkblad herbereken om de 10 sec

[ddr23]

Hoe kan ik een werkblad automatisch om de 10 sec laten herbereken.
Zou enkel op blad 1 mogen gebeuren en niet op de andere werkbladen.
Ook als ik een andere werkmap bij open, mag deze niet gestoord worden door de herberekening.

 

[jkpieterse]

Herberekenen is een Excel proces dat alle open Excel bestanden betreft, dat kan je alleen op slechts 1 bestand laten doen als je de overige bestanden in een nieuwe instantie van Excel opent. Een macro als dit regelt het voor je huidige Excel instantie. In een normale module:

Option Explicit

Dim mdNextTime As Double

Sub DoCalc()
    mdNextTime = Now + TimeValue("00:00:10")
    Application.OnTime mdNextTime, "DoCalc"
    Application.Calculate
End Sub

Sub StopIt()
    On Error Resume Next
    Application.OnTime mdNextTime, "DoCalc", , False
End Sub

In ThisWorkbook:

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    StopIt
End Sub

Private Sub Workbook_Open()
    DoCalc
End Sub

 

[snb]

Welke wijzigingen vinden plaats die herberekening nodig maken ?

 

[ddr23]

Er worden gegevens in excel ingelezen van produktemachine. Elke 10 sec zouden deze moeten ingelezen worden. Van uit deze gegevens worden dan grafieken gemaakt.

 

[ddr23]

jkpieterse

bedankt alvast. :thumb:

 

[ddr23]

moest er toch nog iemand een oplossing weten om het herbereken enkel op blad 1 te laten gebeuren ,laat maar weten he.

 

[snb]

Er worden gegevens in excel ingelezen van produktiemachines.

Met welke methode gebeurt dat ?
Die methode kan dan ook voor de herberekening zorgen.

NB. De minimale verversingsfrekwentie van een een querytable is 1 minuut.

 

[jkpieterse]

Het gaat hier dus niet ook het betekenen met om vernieuwen van een gegevens verbinding of niet?

 

[ddr23]

gegevens worden uit aspentech gehaald.

 

[jkpieterse]

Vervang "Application.Calculate" door ThisWorkbook.RefreshAll.

 

[E v R]

Je zou het eventueel ook 'omgekeerd' kunnen bewerkstelligen door te zorgen dat op alle werkbladen van alle openstaande werkboeken (in de huidige excel-instantie)
de EnableCalculation op False staat. Op het ene werkblad wat wel moet berekenen zet je om de 10 seconden deze Enablecalculation aan en meteen weer uit (dit triggert een hercalculatie)

ThisWorkbook.Sheets("Sheet1").EnableCalculation = True
ThisWorkbook.Sheets("Sheet1").EnableCalculation = False

Let wel, hou goed in de gaten wat wel en niet aan staat ;-)