Office: (Office 2010) Berechnung wenn Bedingung erfüllt

Hallo zusammen :)

Ich hoffe ich kann mein Problem korrekt erklären ;) :

Ich habe 2 Tabellen. In Tabelle 1 stehen, unter anderem, folgende Informationen:

Projektname , Kosten , Umsatz

Projekt 7, 24 €, 50 €
Projekt 1, 10 € , 40 €
Projekt 7 , 20 € , 52 €
Projekt 2 , 15 € , 20 €
Projekt 1 , 5 € , 6 €

etc.

In Tabelle 2 stehen die Projekte, ohne Duplikate aufgelistet:

Projektname , Kosten , Umsatz

Projekt 1
Projekt 2
Projekt 7

etc.


So. Nun folgendes Problem: In der 2. Tabelle sollen nun Kosten und Umsätze der einzlnen Projekte zusammen addiert werden.
Es ist also notwendig, dass mein Makro die Spalte A nach den Projektnamen durchsucht und immer von den gleichen Projektnamen die Kosten in Spalte H addiert.

Ich hoffe es ist einigermaßen verständlich :D :D

Vielen Dank für eure Hilfe im Vorraus!

 

Hola,

warum ein Makro? Dafür gibt es Summewenn().

Gruß,
steve1da

 

Hallo

angenommen ab A2 stehen die Daten, dann folgende Formeln eintragen in Tabelle 2 B2:

und in C2

 

Danke erstmal für eure Antworten! :)

Das Problem ist, dass sich die Ausgangstabellen immer wieder ändern und ich eine Lösung möchte die immer gültig ist.
Ich hab jetzt folgendes Makro:

Sheets("Projekte").Select
Range("C1").Value = "Gesamtkosten"
Range("C2").FormulaLocal = "=SUMMEWENN(Tabelle3!A:J;Tabelle3!A2;Tabelle3!H:H)"
Range("C3").FormulaLocal = "=SUMMEWENN(Tabelle3!A:J;Tabelle3!A1090;Tabelle3!H:H)"
Range("C4").FormulaLocal = "=SUMMEWENN(Tabelle3!A:J;Tabelle3!A1149;Tabelle3!H:H)"
Range("C5").FormulaLocal = "=SUMMEWENN(Tabelle3!A:J;Tabelle3!A1662;Tabelle3!H:H)"
Range("C6").FormulaLocal = "=SUMMEWENN(Tabelle3!A:J;Tabelle3!A2436;Tabelle3!H:H)"

Columns("C:C").Select
Selection.Style = "Currency"

Allerdings ändern sich die Projekte immer wieder und damit auch das Suchkriterium

Gibt es denn vielleicht eine Möglichkeit, dass mein Makro alle unterschiedlichen Werte von Tabellenblatt3 aus Spalte A ausliest und dann immer gleiche Projektnamen mit dem Kostensatz aus Spalte F summiert?

 

Ich glaube ich habs! Hat sich zum Glück erledigt.
Danke trotzdem