Macro: Celwaarde optellen in meerdere sheets

[Toops]

Hallo iedereen,

Ik wil graag de celwaarde (getal) uit het eerste werkblad door tellen in alle daar op volgende werkbladen.

Dus als ik bijvoorbeeld in Blad1(A1) het getal 1 plaats dat in Blad2(A1) een 2 komt te staan.
En dat dan voor alle tabbladen.

Ik ben de halve dag al aan het proberen maar ik kom er niet uit.

Dank!

 

[paul1950]

op blad 2 in cel A1 typen : =Blad1!A1+1

op blad 3 in cel A! typen : =Blad2!A1+1
etc

 

[Toops]

Bedankt voor uw antwoord.

Deze methode heb ik een tijd gebruikt.
De reden waarom ik het doormiddel van een macro wil doen is omdat het vaak gebeurt dat er worksheets midden in het workbook worden verwijdert of er weer nieuwe bij komen.
Daardoor moest ik vaak weer de formules in alle tabbladen veranderen. .

Als hier een macro voor is, scheelt dat me veel werk.

 

[paul1950]

zo iets dan? :

Sub doortellen()
'
' doortellen Macro
'

'
Sheets("Blad2").Select
ActiveCell.FormulaR1C1 = "=Blad1!RC"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Blad1!RC+1"
Range("A2").Select
Sheets("Blad3").Select
ActiveCell.FormulaR1C1 = "=Blad2!RC"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Blad2!RC+1"
Range("A2").Select
Sheets("Blad4").Select
ActiveCell.FormulaR1C1 = "=Blad3!RC"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Blad3!RC+1"
Range("A2").Select
Sheets("Blad5").Select
ActiveCell.FormulaR1C1 = "=Blad4!RC"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Blad4!RC+1"
Range("A2").Select
Sheets("Blad6").Select
ActiveCell.FormulaR1C1 = "=Blad5!RC"
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Blad5!RC+1"
Range("A2").Select
Sheets("Blad1").Select
End Sub




maak een macro aan en noem deze ''doortellen'' en plaats dit er in. in deze zitten 5x doortellen maar als je maar genoeg pagina's eerst aanmaakt en je vult de macro verder aan kun je je uitleven. wel voordat je de macro start in cel A1 een getal zetten.

 

[Cobbe]

Je kan het zo eens proberen:

Sub cobbe()
teller = 0
For Each sh In ThisWorkbook.Sheets
 If sh.Name <> "Blad1" Then
  sh.Cells(1, 1).Formula = "=BLAD1!A1 +" & teller
 End If
teller = teller + 1
 Next
End Sub

 

[Toops]

Precies wat ik zocht Cobbe

Bedankt!