Office: Schleife mehrmals durchlaufen

Hallo,

die Formel Teilergebnis berechnet dir automatisch die Summe der sichtbaren Zellen, somit musst du dir über die sichtbare erste une letzte Zeile keine Gedanken machen.

 

Moin akku
Als Ansatz. Bsp. nach SpalteA gefiltert und Werte stehen in B1:B11.
Code:

Edit: oder mit Columns arbeiten.
Code:

gruss hary

 

hallo hary

Auf was bezieht sich, bzw. was bedeutet "C1" und "D1"?

Ich suche die Spalte, in der ich das Teilergebnis haben will so:
Code:

Wie muss dann nach dem Filtern
Code:

 

Moin
Geschaetzt so.
Code:

 

Hallo Hary,

ich hoffe, ich nerve nicht zu sehr...

soweit funktioniert das nun mit der msgbox.
wie muss aber die Zeile aussehen, wenn ich die Formel in die Zelle eintragen will?

Und, wie bekomme ich den Wert, den die msgbox ausgibt in eine Variable geschrieben, um sie später mit anderen Werten zusammen in einer Box auszugeben?

Gruss
akku

 

Moin
Eigentlich brauchst du doch keine Formel oder? Du kannst dann doch die Variable in die Zelle schreiben.
Code:

 

Hallo Hary,

ganau das ist der Knackpunkt.
Die Summe (Teilergebnis) soll in der Spalte stehen, aus der die Summe gebildet wird. Und in der Zeile, die direkt nach den sichbaren Zeilen kommt.
Genauso, wie es wäre, wenn ich Excel ohne VBA die Autosumme bilden würde, indem ich auf das Summensymbol klicke.

Gruss akku

 

Moin
Edit: vorheriger Eintrag war falsch.
probier mal so.
Code:

 

ja, ich habe die letzte Zeile bereits ausgelesen:
Code:

 

Moin
Code:

 

YES !!!!!!!
Jetzt funktioniert es! Vielen Dank an Euch.
Ich muss nun noch 2, 3 Sachen wiederholen, die ich mehrfach brauche und dann ist mein Projekt fertig.

Hary und Santa, Ihr seid die Größten!!!

Gruss Matthias

 

Moin Matthias

YES !!!!!!! Tschaka *hoch in die Luft spring*

Brauchst du vlt. nicht, aber mach mal. ;-))
gruss hary
Ps.: War schon fast soweit
Code:

LOL

 

Hallo,

sorry, ich muss doch noch mal "nachkarteln"

So funktioniert es zwar...
Code:

...aber ich brauche doch die Formel in der Zelle, da ich die Möglichkeit brauche, nach dem Makrolauf noch manuell Zeilen auszublenden und die Autosumme dann natürlich aktualisiert werden muss.
Code:

müsste ich als ersetzen durch einen Code, der mir nicht den Wert in die Zelle schreibt, sondern die Formel.
folgende Variablen habe ich bereits definiert:
Zeilemax = letzte gefüllte Zeile
Letzte = Zeilemax + 1
rPGR = Spalte in der die Formel eingetragen werden soll...

Gruß
akku

 

Moin
Versuchs mal damit:
Code:

oder
Code:

gruss hary

 

Danke nochmal. Somit habe ich mein Projekt nun fertig, dass ich damit arbeiten kann.
Einziges Manko ist nur, dass nach dem Makrolauf keine Haken in den Autofiltern zu sehen sind.
So gibt es nich die Möglichkeit, mal schnell noch einen anderen Wert auszublenden...
trotzdem bin ich mit dem Ergebnis erstmal zufrieden und das Makro spart mir so ne Menge Zeit.

Gruß
Akku