Auteur Topic: optellen van zelfde cel (gelezen 3708 keer)

Gery · « **Gepost op:** 01 mei 2004, 11:58:53 »

Mijn map bestaat uit 35 tabbladen. Hierin wil ik steeds dezelde cel van een tabblad optellen in tabblad 36. Kan iemand mij die formule bezorgen a.u.b.?
Met vriendelijke groeten

Marijn

Agent SMITH · « **Reactie #1 Gepost op:** 01 mei 2004, 19:38:44 »

=Blad35!A1+Blad34!A1+Blad33!A1+Blad32!A1+Blad31!A1+Blad30!A1+Blad29!A1+Blad28!A1+Blad27!A1+Blad26!A1+Blad25!A1+Blad24!A1+Blad23!A1+Blad22!A1+Blad21!A1+Blad20!A1+Blad19!A1+Blad18!A1+Blad17!A1+Blad16!A1+Blad15!A1+Blad14!A1+Blad13!A1+Blad12!A1+Blad11!A1+Blad10!A1+Blad9!A1+Blad8!A1+Blad7!A1+Blad6!A1+Blad5!A1+Blad4!A1+Blad3!A1+Blad2!A1+Blad1!A1

Gery · « **Reactie #2 Gepost op:** 02 mei 2004, 09:27:14 »

Agent Smith

Bedankt,

maar bestaat er geen kortere manier. Ik heb heel veel gegevens te verzamelen op het laatste tabblad. Ik heb geprobeerd met een som-formule maar dan laat excel maar 15 of 16 optellingen toe.
Maar nogmaals bedankt voor uw reactie

Gery

SoftAid · « **Reactie #3 Gepost op:** 02 mei 2004, 10:55:44 »

Hallo Gery,

Een kleine macro doet soms wonderen:

Sub optel()

For a = 1 To 35
Sheets("blad" & a).Select
Range("A1").Select
Selection.Copy
Sheets("blad36").Select
Range("A" & a).Select
ActiveSheet.Paste
Next a
Sheets("blad36").Select
Range("A36").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-35]C:R[-1]C)"
End Sub

Op blad36 "A1" vind je de waarde van "Blad1! A1"
Op blad36 "A2" vind je de waarde van "Blad2! A1"
Op blad36 "A3" vind je de waarde van "Blad3! A1"
.......
.......
.......
Op blad36 "A36" vind je de som "A1:A35"

Groeten,

SoftAid

Registreer en plaats je systeemgegevens in je profiel, dan kunnen we je nog beter helpen 8)

Ingrid B · « **Reactie #4 Gepost op:** 03 mei 2004, 09:12:01 »

=SOM(Blad1:Blad35!A1)

Je kan zo'n formule als volgt opbouwen:

typ =som( in een cel
selecteer de gewenste cel op het eerste blad, dus cel A1 op Blad1
selecteer nu het laatste blad met de [Shift]-toets ingedrukt
sluit tenslotte de formule af met ) en [Enter]

SoftAid · « **Reactie #5 Gepost op:** 03 mei 2004, 10:03:16 »

Ingrid, ik krijg het schaamrood op mijn wangen

Zit ik daar macro's te verzinnen, en het is zo eenvoudig

SoftAid

Gery · « **Reactie #6 Gepost op:** 03 mei 2004, 12:40:44 »

Allemaal heel hartelijk bedankt

De formule van Ingrid net geprobeert. Werkt perfect.

Gery

Ingrid B · « **Reactie #7 Gepost op:** 03 mei 2004, 13:00:04 »

Citaat van: SoftAid op 03 mei 2004, 10:03:16

Ingrid, ik krijg het schaamrood op mijn wangen

Zit ik daar macro's te verzinnen, en het is zo eenvoudig

SoftAid

Dan heb je weer eens wat kunnen oefenen met VBA

Trouwens, als je in VBA een vervanging zoekt voor een formule, dan is het eigenlijk handiger om een UDF (User Defined Function) te maken bijv.:

Function optel()
Dim i As Integer
For i = 1 To 35
optel = optel + Sheets("blad" & i).Range("A1")
Next i
End Function

en in de cel kan je dan het volgende zetten:

=optel()

cladon · « **Reactie #8 Gepost op:** 04 mei 2004, 08:17:32 »

Je ziet - eenvoud is de meester van de gedachte - maar je moet natuurlijk de gedachte hebben.

Mooie oplossing zowel van SoftAid en van Ingrid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics