---

Hallo zusammen,

ich habe eine Exceltabelle, in der alleRäume aller Gebäude mit Angabe der Raumgröße unde Nutzergruppe aufgelistet sind. Mit dem Autofilter lassen sich nun manuell sehr komfortabel Abfragen realisieren und die Flächen aufsummieren, z. B. Alle Hörsäle in Geb 2 = 305m²

Nun würde ich gerne auf einem weiteren Blatt der Arbeitsmappe verscvheidene derartige Filter und deren Summierungen als Zusammenfassung eintragen ohne bei Änderungen der Zuordnung das mmer wieder händisch nachführen zu müssen.
Mit dem Makrorekorder habe ich herausbekommen, wie ich die Filter aktivieren kann:

Code:

---

    ActiveSheet.Range("$A$1:$J$1523").AutoFilter Field:=10, Criteria1:= _
        "Fk Textil & Design"
    ActiveSheet.Range("$A$1:$J$1523").AutoFilter Field:=1, Criteria1:="BAU 2"
    Columns("D:D").Select

---

Aber wie bekomme ich jetzt die automatische Summation der Flächenwerte (Spalte D) der durch die Filter gewählten Zeilen hin?

------------------
----------------

"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

bin nicht sicher, ob ich verstanden habe, was die Fragestellung ist, aber löst: "Summewenn" das Problem?

Ich denke, es ist hilfreich, so oft wie möglich auf Makros zu verzichten ...

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bringt Dich die Funktion TEILERGEBNIS bereits weiter?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Also:

a 1
b 2
c 3
a 1
a 2
b 4
b 5
b 6
c 2
c 3
c 1
c 4

=Summewenn (A1:A12;"a";B1:B12)

Grüße

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke an alle für die Rückmeldungen!

Zitat:

---

Original erstellt von daniu:
... Ich denke, es ist hilfreich, so oft wie möglich auf Makros zu verzichten ...

---

Nun, in der Datenbank sind über 1500 Räume in 20 Gebäuden verteilt auf 23 Nutzergruppen definiert.
Das alles mit Summe-Wenn-Abfragen zu verwalten macht keinen Spass (ist aber der aktuelle Stand).

Zitat:

---

Original erstellt von .....:
Bringt Dich die Funktion TEILERGEBNIS bereits weiter?

---

Das sieht erst einmal interessant aus.

Aktuell versuche ich es gerade damit, mir ein VBA-Funktion zu schreiben, welche die Tabell durcharbeitet und bei Übereinstimmung mit den Filterwerten (Übergabeparameter) die Summation bildet.

------------------
----------------

"Ich stimme mit der Mathematik nicht überein. Ich meine, daß die Summe von Nullen eine gefährliche Zahl ist."  (Stanislaw Jerzy Lec)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

wenn ich die Aufgabe richtig verstanden habe, bin ich bei =Summenprodukt()
aka

Code:

---

=SUMMENPRODUKT((($A$1:$J$1523)="Fk Textil & Design")*(($A$1:$J$1523)="BAU 2")*($D$1:$D$1523))

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP