Thema: Gefilterte Daten summieren

Home

Gruppe

Funktion

Problem

In Zeile 1 einer Tabelle sollen die Werte einer gefilterten Spalte summiert werden.

Lösung

Formel in E1: =TEILERGEBNIS(9;E3:E65536)

StandardModule: mHWH

Sub Uebertragen()
    Dim iCounter As Integer, iRow As Integer
    For iCounter = 2 To WorksheetFunction.CountA(Columns(1))
      If Rows(iCounter).Hidden = False Then
         iRow = iRow + 1
         Worksheets("Tabelle2").Cells(iRow, 1).Value = _
            Cells(iCounter, 1).Value
      End If
    Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und TEILERGEBNIS

Copy funktioniert nur einmal	Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei	Match Funktion spinnt (?)
SVerweis funktioniert nicht	PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office	Hilfe bei der INDEX Funktion
Teilergebnis mit Summenprodukt kombiniert	Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion	Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht	VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen	Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion	Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings?	Autofilter und Teilergebnis
Skript funktioniert nur auf einer seite?!?!	Hyperlink auf Excel-Datei funktioniert nicht
Public Funktion / Variabel	VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion	Userform mit Löschfunktion
Frage zu Wenn Dann Funktion	Wenn-Funktion
Frage zur Funktion DISAGIO	Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt	VBA Suchfunktion erweitern
Makro funktioniert nicht richtig	zählenwenn-funktion mit mehreren kriterien
Summe / Wenn Matrix i.V.m Teilergebnis	Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office	Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen	Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile")	Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht	Nach Teilergebnissen das Datum formatieren
WENN-Funktion	Hide-Funktion in einem Frame
Suchfunktion	Date Funktion
Filter funktioniert nicht	Funktionsname austauschen