Hoi allemaal,

Ik bereken het totaal van 2 kolommen:

    A     B
1   1     2
2   3     4
3   5     6
4   TOTAAL
Totaal : het totaal is de Som van ieder produkt:
=SOM(1*2;3*4;5*6), is dus 2+12+30 = 44

Dit automatiseer ik omdat er rijen ingevoegd kunnen worden. Dus het totaal krijgt iets als dit:

ActiveCell.Formula = SomInhoud

Variabele SomInhoud is opgebouwd via een lus, en is gedeclareerd als een Variant.

Echter hier treedt een foutmelding op bij de ActieveCell. Als ik     ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-10]C[1])" gebruik dan lukt het wel, maar dan weet ik niet hoe ik hierin A1 * B1 nog kan verwerken tot R1C1. Heeft iemand daar een idee voor?

Alvast heel erg bedankt!  Gerrit.

Dag, gbon,

Welkom bij de club

Dit automatiseer ik omdat er rijen ingevoegd kunnen worden.

Dat klinkt als een "dynamisch" bereik. Je hoeft dat niet te automatiseren.

Probeer dit eens:
  A       B       C  D         
1 LIJST 1 LIJST 2    SOMPRODUCT
2 1       2          44         
3 3       4                     
4 5       6                     

Blad1
[Table-It] version 07 by Erik Van Geit
RANGE FORMULA
D2    =SUMPRODUCT(OFFSET($A$2,0,0,MATCH(9.99999999999999E+307,A:A)-1),OFFSET($B$2,0,0,MATCH(9.99999999999999E+307,A:A)-1,1))

[Table-It] version 07 by Erik Van GeitADRES FORMULE
D2    =SOMPRODUCT(VERSCHUIVING($A$2;0;0;VERGELIJKEN(9,99999999999999E+307;A:A)-1);VERSCHUIVING($B$2;0;0;VERGELIJKEN(9,99999999999999E+307;A:A)-1;1))

[Table-It] version 07 by Erik Van Geit
De formule kijkt in kolom A waar de laatste rij is. In het 2de deel kan je eventueel A door B vervangen. Dan krijg je een foutmelding (#WAARDE!) indien beide kolommen niet dezelfde "lengte" hebben.

beste groeten,
Erik

Ja, Leo,

Persoonlijk hou ik niet van totalen onderaan de kolom, want daar heb je meer moeilijkheden mee.
1. ze schuiven steeds verder
2. je moet rijen invoegen

Mijn advies is bij voorkeur: totalen op een rij bovenaan en gewoon onderaan verder tijpen :-) Het maakt niet zoveel uit of die formule lang rekent, want ze komt niet zo vaak voor, maar je kan eventueel dat grooooote getal benoemen. (bijvoorbeeld "googol") Zo win je nog een fractie van een seconde per formule.

=SOMPRODUCT(VERSCHUIVING($A$2;0;0;VERGELIJKEN(googol;A:A)-1);VERS CHUIVING($B$2;0;0;VERGELIJKEN(googol;A:A)-1;1))

Als alle formules naar dezelfde laatste rij mogen kijken, kan je uiteraard een groter deel van de formule benoemen:
=VERGELIJKEN(9,99999999999999E+307;A:A)-1;1)

noem dit bevoorbeeld LaatsteRij
=SOMPRODUCT(VERSCHUIVING($A$2;0;0;LaatsteRij;VERSCHUIVING($B$2;0;0;LaatsteRij)

'k heb dit niet getest, hopelijk geen knip- en plak- en tijpfouten

goeie nacht,
Erik

Als toevoeging op mijn post hierboven...

De Formula methode werkt wel! Je moet alleen dan de puntkomma's in je string vervangen voor komma's! De code wordt dan...
Sub test1()
Dim sSomInhoud As String

    sSomInhoud = "=sum(A1*B1,A2*B2,A3*B3)"
   
    ActiveCell.Formula = sSomInhoud

End Sub
Bij gebruik van de Formula methode moet je trouwens wel de engelse functienamen gebruiken. Je krijgt anders een #NAME (#NAAM) fout in je cel.

Groet, Leo

...en nou maar hopen dat de TS (na al onze inspanningen ) nog iets van zich laat horen...

Groet, Leo

Hoi allemaal,

Hier dan de TS hihi. Laat ik eerst dit zeggen: OVERWELDIGENDE reacties! En dus waarom niet eerder zelf reageren? Ik was de vraag kwijt op internet, zoek regelmatig via go...le en had me geregistreerd op dit forum omdat ik een aantal wijze dingen zag.

Hoewel in de registratie stond (dacht ik), dat je via mail reactie krijgt, en ik niks zag aan e-mail, dacht ik dat er nog niet gereageerd was, vandaar.

Het probleem is opgelost door met de R1C1 formule te werken, maar dat vond ik wel een heisa. Ik ga nu al jullie reacties goed lezen en leren, maar de belangrijkste conclusies heb ik snel gescand.

1. Totaliseer boven in de kolom - slimme oplossing
2. Gebruik de standaardfunctie (iets met SOMPRODUCT, staat in de thread)

Ik vind nr. 1 erg lastig, werk weinig met Excel en heb daarom geen grote snelheid in het programmeren. Het zou ws te lang duren om optie 1 in te bouwen. Nr.2 ga ik zeker gebruiken!

Allemaal heel erg bedankt, ik hoop dat jullie er ook wat aan gehad hebben (aan elkaar dan).

Groetens, Gerrit.

Hoi Hoi,

Na even puzzelen kom ik nog niet uit de somproduct-formule.

A    B
1    2
3    4
5    6

=SOMPRODUCT(B3:C3;B4:C4;B5:C5) => 63 en geen 44 ??

Wat doe ik mis?

Keek je al eens in de  helpfiles? Dat zal wellicht ook helpen om de werking te doorgronden.