Summe der markierten Zellen bei gefilterter Ansicht

[Hank_Nasemann]

Hallo,

ich möchte die Summe der markierten Zellen unter VBA auslesen.
WorksheetFunction.Sum(Selection) geht nicht, weil ich im Tabellenblatt
den Autofilter aktiv habe. In der Statuszeile zeigt Excel
standardmäßig die Summe der markierten Zellen an und berücksichtigt
dabei, wenn durch den Filter markierte Zelle nicht angezeigt werden
(die werden nicht mit summiert). Wie komme ich unter VBA ohne große
Klimmzüge an diesen Wert?

Danke+Gruß,

Hank

[Claus Busch]

Hallo Hank,

Post by Hank_Nasemann
ich möchte die Summe der markierten Zellen unter VBA auslesen.
WorksheetFunction.Sum(Selection) geht nicht, weil ich im Tabellenblatt
den Autofilter aktiv habe. In der Statuszeile zeigt Excel
standardmäßig die Summe der markierten Zellen an und berücksichtigt
dabei, wenn durch den Filter markierte Zelle nicht angezeigt werden
(die werden nicht mit summiert). Wie komme ich unter VBA ohne große
Klimmzüge an diesen Wert?

probiers mal so:
Ergebnis = Application.WorksheetFunction.Subtotal(9, Selection)
MsgBox Ergebnis

[Hank_Nasemann]

Hallo Claus,

ich versteh zwar noch nicht ganz, wieso (wofür steht der erste
Parameter? Hilfe sagt nur "erforderlicher Double Wert"), aber es

Post by Claus Busch
Ergebnis = Application.WorksheetFunction.Subtotal(9, Selection)

zu funktionieren.

Danke!

[Claus Busch]

Hallo Hank,

Post by Hank_Nasemann
ich versteh zwar noch nicht ganz, wieso (wofür steht der erste
Parameter? Hilfe sagt nur "erforderlicher Double Wert"), aber es

Post by Claus Busch
Ergebnis = Application.WorksheetFunction.Subtotal(9, Selection)

zu funktionieren.

wenn du mit Autofilter arbeitest und die ausgeblendeten Zeilen nicht in der
Berechnung berücksichtigt werden sollen, musst du mit Teilergebnis arbeiten
(Subtotal in VBA). Der erste Parameter bezeichnet die zu verwendende
Funktion. Z.B. 1 = Mittelwert, 2 = Anzahl,..., 9 = Summe
Schau dir mal in der Hilfe die 11 Parameter zu Teiergebnis an.

[Hank_Nasemann]

Post by Claus Busch
wenn du mit Autofilter arbeitest und die ausgeblendeten Zeilen nicht in der
Berechnung berücksichtigt werden sollen, musst du mit Teilergebnis arbeiten
(Subtotal in VBA). Der erste Parameter bezeichnet die zu verwendende
Funktion. Z.B. 1 = Mittelwert, 2 = Anzahl,..., 9 = Summe
Schau dir mal in der Hilfe die 11 Parameter zu Teiergebnis an.

Hab es jetzt auch gefunden, nochmal danke

Hank