Office: Variablen Zellbereich in Excel mit VBA addieren

Hallo,
nach erfolgloser Suche stell ich nun meine Frage mal hier ins Forum:

Ich hab eine Exceltabelle in der ich mit dem Autofilter sortiert hab.
Nun will ich die ausgegebenen Werte addieren, da der Bereich ja immer die größe ändert brauche ich eine Formel die mir diesen Variablen Bereich addiert.
Ich hab mir das ganze so vorgestellt:

Range ("AE20") = sum ("AE6:AE" & a & "")

aber des klappt net?!
Die Anfangszelle ist immer die Selbe nur wie kann ich dem sagen, dass er bis zur letzten Zelle addieren soll?
Mit dem Makroplayer kommt sowas raus:
...."sum (R[-3]C:R[-1]C)"
aber wie bekomme ich die Variable in die eckigen Klammer rein?

Ich hoffe ihr versteht mein Problem und könnt mir helfen, ich darf leider die Tabelle nicht online stellen, da sie geheime Geschäftsdaten enthält, sorry!

Gruss Marksu

:)

 

Hallo Marksu,

dazu gibt es die Funktion Teilergebnis in der Tabelle.




Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

 

Hi Conygelb2,

also ich bin mir nicht sicher, ob ich dich richtig verstanden habe, aber ich probier's mal.
Es geht also um einen Wertebereich, der sich ständig ändert.

So was kann man leicht in VBA machen.
Beispielsweise in folgendem Programm beginnt der Wertebereich in Zelle "A5" und geht weiter bis zur nächsten leeren Zelle. Die Summe wird in Zelle "B5" ausgegeben.

z.B.

"
sub Variabler_Wertebereich ()

dim Blatt as worksheet

dim Zeile_1 as integer
dim Zeile_2 as integer

application.calculation=xlmanual

set Blatt=thisworkbook.worksheets("Blattname")

Blatt.activate
Blatt.range("A5").activate

Zeile_1=activecell.row
selection.end(xldown).select
Zeile_2=activecell.row

Blatt.range("B5").formulalocal="=Summe(A" & Zeile_2 & ":A" & Zeile_2 & ")"

application.calculation=xlautomatic

set Blatt=nothing

end sub
"

Den Code kannst du ja dann auf deine Sache abändern und ihn dann entweder hinter einem Button ablegen, wodurch du ihn durch Klicken immer auslösen kannst, oder ihn hinter das entsprechende Arbeitsblatt ablegst und mit Hilfe des Ereignisses "calculate" immer dann neu berechnet wird, wenn sich Änderungen in dem Arbeitsblatt ergeben.

Hoffe ich konnt dir weiterhelfen.

Gruß aus Potsdam
JimmyT

 

hi,
ich weis, aber da komm ich net klar mit den Variablen, ich hab nun sowas gefunden, aber kann ich auch net machen

Worksheets(1).Cells(4, 9).Value = addition(Tabelle1.Range("D3*biggrin.gif*7"))

warum bemängelt der mir des??
ich hänge mal ne ganz abgespeckte Version meiner Tabelle an :-)
hier soll mir des Makro des ergebnis ausrechnen.

Gruss markus

EDIT:
ich hab nun die Formel so umgewandelt:
Worksheets(1).Range("D9").FormulaLocal = "=Summe(D3*biggrin.gif*7)"

und siehe da, es geht!!

Vielen Danke, muss nun nur noch die Variablen Zellen einhäcken und beten das ich des gebacken bekomme!

Echt super Forum!! *Lob*

Gruss Markus

 

Hallo

ich sehe kein Autofilter in Deiner Tabelle?

MsgBox WorksheetFunction.Subtotal(9, Range("D2*biggrin.gif*8"))

Gruß Hajo

 

ja ne, der Autofilter ist ja in meiner richtigen Tabelle, net in der Testtabelle.

hab nun die Formel in meine "richtige" eingefügt, und es klapp!!

in der richtigen Tabelle sieht sie nun so aus:

ActiveSheet.Range("AE" & c & "").FormulaLocal = "=Summe(AE6:AE" & b & ")"

Gruss Markus

*gleichzumChefgehundLorbeerenernt* *biggrin.gif*

 

Hallo

damit wird aber nicht die Summe der angezeigten Datensätze gebildet, bei aktivem Autofilter.

Gruß Hajo

 

\@ Conygelb2

Ich hab dir jetzt mal 2 kleine VBA-Programme geschrieben.

Dazu 2 Buttons, mit denen du die jeweiligen Programme auslösen kannst.
Funktioniert eigentlich ganz einfach.
Kannst es gerne mit verschiedenen Werten ausprobieren.

Generell rate ich dir in VBA von "cells()" ab.
Nimm lieber das "range"-Objekt, damit kannste vielmehr anstellen.

Das 2.VBA-Programm (Zelle leeren) ist aber noch statisch auf Zelle "D9" ausgelegt. Das müßte man dann noch dynamisch machen.

Bei weiteren Fragen gib einfach Bescheid.

Gruß
JimmyT

 

Das es aber auch immer was zu meckern gibt *biggrin.gif*

Also, ich habe eine Tabelle1, in die hab ich eine UserForm gebaut über die ich nach bestimmte Kriterien filtern kann. Die gefilterten Daten werden in eine neue Tabelle kopiert, und in diese kam dann die obengenannte Formel.
Daher auch der Variable Bereich.
Mir gings halt erstmal um die Formel, deshalb hatte ich das nicht erwähnt.

So, hoffe nun alles richtig beschrieben zu haben.

Gruss Markus

 

Hallo JimmyT

für Schleifen ist Cells aber unschlagbar.

Gruß Hajo

 

Hallo Markus,

nicht meckern nur Hinweis. Du hast in Deinen Beitrag von Autofilter geschrieben. Was Autofilter nun mit Deinem letzten Beitrag noch zu tun hat ist mir schleierhaft.

Gruß Hajo

 

Na in meiner ersten Tabelle sortiere ich per Autofilter(die UserForm löst ein Makro aus, welchen per Autofilter filtert), deshalb.
Sorry, wenn ich mein Text nochmal so durchles, kommen mir auch ein paar fragen *biggrin.gif*
Aber das wichtigste ich doch, dass es funktioniert!

Gruss Markus