Also hab nochmal geschaut. VBA Code wäre eigentlich nicht notwendig. Das ganze kann man auch mit Formel lösen. Die Formel sind im Blatt 2 einzufügen. Die Formeln sind erstmal nur für Januar - das kopieren in die anderen dann, wenn alles drin steht.
füge in Spalte 2 bei Max Datum die Formel hier ein und beende dort die Eingabe mit Enter + STRG + UMSCH
=MAX(WENN(Tabelle1!A1:A20=A2;Tabelle1!C1:C20))
dabei ist
Tabelle1!A1:A20 der Bereich in der Tabelle wo die Monatsnamen stehen
Tabelle1!C1:C20 ist der Bereich der Daten also die einzelen Datums :-)
in die Zelle für das Auto dann die Formel - die reicht normal reinkopieren ohne die drei Tasten
=SUMMENPRODUKT((Tabelle2!B1:B20="Auto")*(Tabelle2!C1:C20=B2)*Tabelle2!D1:D20)
dabei ist
Tabelle2!B1:B20 der Bereich in der Tabelle wo Fahrrad oder Auto steht
Tabelle2!D1:D20 der Bereich in der Tabellewo die Werte stehen
und B2 ist das Ergebnis der ersten Formel.
und in die Zelle für das Fahrrad das hier
=SUMMENPRODUKT((Tabelle2!B1:B20="Fahrrad")*(Tabelle2!C1:C20=B2)*Tabelle2!D1:D20)
Erklärung ist wie bei Auto außer das hier Fahrrad steht.
Das ganze (also alle 3 Zeilen markieren) kannst du dann nach unten ziehen, so dass es in allen Feldern steht. Hab's getestet und funktioniert. Hört sich vllt. kompliziert an, ist aber schnell erledigt. Beim Feld Datum ggf. noch die Zellen in Datumsformat formatieren (rechte Maustaste, Zelle formatieren .> Datum)
Schönen Abend noch.
|