Summe von Autofilter-Ergebnissen per VBA
30.11.2005 10:47:17
Autofilter-Ergebnissen
ich versuche seit gestern per VBA mir die Ergebnisse von einem Autofilter summieren zu lassen.
Mit TEILSUMME komme ich irgendwie nur manuell klar, aber es soll ja automatisch berechnet werden.
Die Tabelle sieht so aus, dass in Zeile 2 ein Autofilter gesetzt ist, der u.a. in Spalte D nach Umsätzen filtert (in den folgenden zeilen kommen dann die Ergebnisse)
In den Spalten vorher kann man dann halt z.B. Monat, Abteilung etc. auswählen.
Ich hätte jetzt gerne, dass mir in Zelle G2 die Summe aller Umsätze ausgegeben wird, die als Ergebnisse des Autofilters angezeigt werden.
Ich hatte es mit VBA probiert, aber da bringt er mir immer die Summe aus der Gesamtliste. Wenn jetzt z.B. im Autofilter Eintrag 135 und 136 aus der Liste angezeigt werden, dann summiert mir mein VBA nicht nur die zwei Einträge, sondern alle, von 1-136 aus der Gesamtliste ;(
Bitte helft mir, bin am verzweifeln.
Gruß
Hans
Hier mein Code:
Sub Umsatz()
Dim Ende As Integer
Application.Calculation = xlManual
Range("D2").Activate
Selection.End(xlDown).Select
Ende = ActiveCell.Row
Range("G2").FormulaLocal = "=Summe(D2:D" & Ende & ")"
Application.Calculation = xlAutomatic
End Sub