Probleem bij doorrekening data in nieuw Excel werkblad

[Joop Manussen]

Geachte Forumleden,

De situatie is als volgt:
a) Sheet 1 gevuld met gekoppelde data (uit andere Workbooks)

b) Sheet 2 bevat de gekoppelde data uit Sheet 1 die als waarden naar Sheet 2 zijn gekopieerd

c) probleem: de naar Sheet 2 gekopieerde data als waarden worden in de formules van Sheet 2 niet doorgerekend
opm. doorrekening vindt wel plaats indien ik op een gekopieerde cel dubbelklik en op "invoeren" (V) druk
berekeningsopties staat al op automatisch

Vraag: Hoe doorberekening in Sheet 2 automatisch te laten uitvoeren?

Hieronder : Macro herberekenen
(Deze wordt uitgevoerd bij openen Sheet 2)

Private Sub herberekenen Click()
' Macro om gegevens te kopiëren en door te berekenen

' Zet automatische berekening aan
Application.Calculation = xlCalculationAutomatic

' Selecteer het bereik in Worksheet 1
Range("F9:AF528").Select
Selection.Copy

' Ga naar de Worksheet 2 (Is lijst met de gekopieerde waarden)
Sheets 1.Activate

' Plak de waarden vanaf cel F9
ActiveSheet.Cells(9, 6).PasteSpecial Paste:=xlPasteValues

' Forceer herberekening
Application.Calculate

' Opruimen: plakactie verwijderen
Application.CutCopyMode = False
Sheets 1.Activate
ActiveSheet.Cells(9, 6).Select
' Zet EnableEvents weer aan
'Application.EnableEvents = True
End Sub

Zou uw oplossing/suggestie zeer op prijs stellen.

 

[Haije]

' Ga naar de Worksheet 2 (Is lijst met de gekopieerde waarden)
Sheets 1.Activate

Klopt dit wel? Zou dat niet Sheets2.Activate moeten zijn?

Normaal gesproken helpt het als je het betreffende bestand (of een goed gelijkend alternatief) zonder gevoeleige gegevens post.

 

[snb]

Sub M_snb()
   with sheet1.Range("F9:AF528")
     sheet2.cells(9,6).resize(.rows.count, .columns.count)=.value
   end with
End Sub

 

[Joop Manussen]

Klopt dit wel? Zou dat niet Sheets2.Activate moeten zijn?

Normaal gesproken helpt het als je het betreffende bestand (of een goed gelijkend alternatief) zonder gevoeleige gegevens post.

Sorry, u heeft gelijk.
In de echte macro staat het echter juist vermeld.

 

[Joop Manussen]

Sorry, u heeft gelijk. In de echte macro staat echter wel Sheet 2.

 

[Joop Manussen]

Lees net antwoord van snb, verenigingslid. Dank daarvoor.
Vraag: waar voeg ik het vermelde stukje code in in de bestaande macro?

 

[snb]

ter vervanging.

 

[Joop Manussen]

Krijg mededeling bij with sheet 1: Sub of Function is niet gedefinieerd

 

[emields]

sheet 1 bestaat niet sheet1 wel

ps. heb je #2 wel gelezen?

 

[snb]

Dan is de informatie die je ons hebt verstrekt niet correct.