VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Gefilterte Daten summieren

Gruppe

Funktion

Bereich

TEILERGEBNIS

Thema

Gefilterte Daten summieren

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