Hallo liebe Mitstreiter,
Ich bin schon seit langem ein stiller Mitleser und konnte mir durch das Forum hier bereits schon einiges aneignen, worauf ich von alleine wohl nicht gekommen wäre. Dafür schon mal ein großes Dankeschön vorweg.
Nun sitze ich gerade an der Auswertung einer Datentabelle und stecke irgendwie fest...
Die Daten sind im Sheet "Aufmaß".
Die Auswerung findet im Sheet "Aufmaß2" statt.
Hierbei soll der Bereich "Aufmaß2" Bereich(G14:Zeilenende) mit dem Bereich "Aufmaß" Bereich(G14:Spaltenende) verglichen werden. Im "Aufmaß" kommen die Zelleninhalte mehrfach (1,1,1,1,2,2,3,3,3,3,4,4,5,5,5,...) vor, im "Aufmaß2" kommen die Zelleninhalte nur einmal (1,2,3,4,5,...) vor (Duplikate sind bereits entfernt).
Im "Aufmaß" Bereich(O15:(Zeilenende,Spaltenende)) z.B. für den Wert "1" (O15:PP18) befinden sich die Werte, die dann Spaltenweise in der entsprechenden Zeile im "Aufmaß2" summiert werden sollen z.B. für den Wert "1" Summe(O15:O18) in (O15:PP15).
Für den Wert "2" wäre das dann im "Aufmaß" (O19:PP20), diese müsstesn dann im "Aufmaß2" in die Zellen (O16:PP16).
Tabelle geht analog so weiter.
Der VBA Code soll auch auf andere, analog aufgebaute Tabellen angewendet werden können.
Die einzigen "fixen Bezüge" sind "Aufmaß" G15 nach unten als Variable bis Spaltenende, "Aufmaß" O10 nach rechts als Variable bis Zeilenende, "Aufmaß" und "Aufmaß2" die Zelle "O15" als Start für das Datensummieren und Summen einfügen.
Als SUMMEWENN habe ich das schon problemlos zum laufen bekommen. Der WENN Befehl macht nur, das ich keine "0" in jeder leeren Zelle zu sehen bekomme.
=WENN(SUMMEWENN(Aufmaß!$G$15:$G$10000;'Aufmaß2'!$G15;Aufmaß!O$15:O$100)>0;SUMMEWENN(Aufmaß!$G$15:$G$10000;'Aufmaß2'!$G15;Aufmaß!O$15:O$100);"")
Jetzt soll alles in VBA um die Nutzer davon abzuhalten, die Formel zu verändern oder "verschwinden zu lassen.
Ich freue mich schon auf eure Ansätze oder gar Lösung.
Grüße,
der MAWI