Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Excel: Herberekenen uitzetten in VBA

894 views
Skip to first unread message

J. de Groot

unread,
Oct 21, 2002, 10:57:14 AM10/21/02
to
Ik worstel met een (klein) probleem binnen Excel en dat is het volgende.
Ik heb een werkblad dat boordevol zit met SOM.ALS formules. Het werkblad
gaat eerst al die formules herberekenen, de Auto_Open macro importeert
vervolgens in een apart werkblad 'verse' data en daarna worden die
formules allemaal opnieuw berekend. Dat kan al met al vrij lang duren.
Technisch gezien werkt het allemaal keurig, maar ik zat me alleen af te
vragen of het ook mogelijk is om in VBA een code op te nemen die het
berekenen bij het openenen van het werkblad op handmatig zet en aan het
eind van de macro het berekenen weer op automatisch zet. Ik heb het al
geprobeerd met de code 'Application.Calculation = xlCalculationManual'
in de macro Auto_Open en ook heb ik dezelfde code gebruikt in 'Private
Sub Workbook_Open()'. Het lijkt er echter wel op dat eerst het werkblad
wordt geopend en dat daarna eerst de automatische herberekening wordt
uitgevoerd alvorens de code wordt gelezen. Heb jij misschien een idee
wat me verder kan helpen?

Met vriendelijke groet,

Johnny de Groot


--
WebNews: http://herbert.groot.jebbink.nl/webnews/

Roel Griffioen

unread,
Oct 21, 2002, 6:31:05 PM10/21/02
to
J. de Groot <ge...@spam.nl> wrote:

> Ik worstel met een (klein) probleem binnen Excel en dat is het volgende.
> Ik heb een werkblad dat boordevol zit met SOM.ALS formules. Het werkblad
> gaat eerst al die formules herberekenen, de Auto_Open macro importeert
> vervolgens in een apart werkblad 'verse' data en daarna worden die
> formules allemaal opnieuw berekend. Dat kan al met al vrij lang duren.
> Technisch gezien werkt het allemaal keurig, maar ik zat me alleen af te
> vragen of het ook mogelijk is om in VBA een code op te nemen die het
> berekenen bij het openenen van het werkblad op handmatig zet en aan het
> eind van de macro het berekenen weer op automatisch zet.

Bedoel je het openen van een werkmap? of het activeren van een werkblad?
ik neem aan het eerste.

> Ik heb het al geprobeerd met de code 'Application.Calculation =
> xlCalculationManual' in de macro Auto_Open en ook heb ik dezelfde code
> gebruikt in 'Private Sub Workbook_Open()'. Het lijkt er echter wel op
> dat eerst het werkblad wordt geopend en dat daarna eerst de automatische
> herberekening wordt uitgevoerd alvorens de code wordt gelezen. Heb jij
> misschien een idee wat me verder kan helpen?

Weet je zeker dat de Workbook_Open op de goede plek staat (rechter
muisklik op titelbalk)? Bij mij werkt het wel zoals je beschrijft dat
het zou moeten.

--
Groeten,
Roel Griffioen
Posted by news://news.nb.nu

J. de Groot

unread,
Oct 22, 2002, 3:21:35 AM10/22/02
to
Roel,

Bedankt voor je antwoord, maar bij mij werkt het niet. Als het bij jou
wel werkt zal ik ongetwijfeld iets fout doen, maar ik zie niet wat. Ik
gebruik de volgende instructie:

Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub

Waar 'ie precies staat? Als ik in het venster 'Project - VBAProject'
'ThisWorkbook' selecteer en op de rechtermuisknop klik, kies ik uit het
verschijnende menu voor 'Programmacode weergeven'. Daarna verschijnt een
venster met de naam van het workbook gevolgd door de tekst
'-ThisWorkbook (Code). De instructie wordt op zich wel uitgevoerd, maar
pas nadat het workbook is geopend. Een eerste herberekening heeft dan al
plaatsgevonden. Even voor alle duidelijkheid: ik werk met Office 97
Service Release 1.

Met vriendelijke groet,

Johnny de Groot

Roel Griffioen wrote:


--
WebNews: http://herbert.groot.jebbink.nl/webnews/

Dr.Ruud

unread,
Oct 22, 2002, 4:17:33 AM10/22/02
to
J. de Groot skribis:

> De instructie wordt op zich wel
> uitgevoerd, maar pas nadat het workbook is geopend. Een
> eerste herberekening heeft dan al plaatsgevonden.

Als je onder de vorige tekst zou antwoorden, dan krijg je
vanzelf betere reacties.

--
Affijn, Ruud (tip: save je workbook eens terwijl die calculation
op manual staat)


0 new messages