Einzelne Auflistung

Guten morgen miteinander.
Ich habe leider eine sehr doofe Aufstellung einer excel datei bekommen und ich darf diese Grundstein nicht ändern.
Also in Spalte A steht was drin was uninteressant ist. Dann kommt Spalte B ein Wert Spalte C Artikelnummer Spalte D Bezeichnung.
Dann E wieder ein Wert, F eine Artikel Nummer und G eine Bezeichnung.
Oben erste Zeile steht immer Januar dann das zweite Februar (E bis G ) usw....
Jetzt möchte ich im tabellenblatt Auswertung das nur eine Artikel Nummer kommt mit Bezeichnung Spalte C wie oft die Artikelnummer in der Liste war und den gesamt Betrag des Artikel.

Leider bin ich im Auto unterwegs und kann keine Liste schicken. Hoffe dennoch ihr versteht meine Anfrage und könnt mit helfen.

Lieben Dank

Sebastian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Einzelne Auflistung

08.08.2023 07:35:27

Josef Schindler

AW: Einzelne Auflistung

08.08.2023 09:43:38

Sebastian

AW: Einzelne Auflistung

08.08.2023 07:38:07

Einzelne Auflistung

08.08.2023 12:39:10

Herbert Grom

Einzelne Auflistung

08.08.2023 13:38:25

Sebastian

AW: Einzelne Auflistung

08.08.2023 10:19:37

Sebastian

Einzelne Auflistung

08.08.2023 11:19:43

Einzelne Auflistung

08.08.2023 12:49:07

MCO

Einzelne Auflistung

08.08.2023 13:06:58

Sebastian

Einzelne Auflistung

08.08.2023 13:37:03

Sebastian

Einzelne Auflistung

09.08.2023 07:11:32

MCO

Hallo Sebastian!

Wer macht denn so eine Aufstellung?! Katastrophal.

Möglicherweise hat SF recht mit seinem recht knapp gehaltenen Rat, ich würd damit aber nicht zum Ergebnis kommen.
Jedenfalls nicht mit einer übersichtlichen Formel.

Also hab ich ein Script geschrieben, dass die Werte erstmal schön untereinander schreibt.
Dann mit den üblichen Verdächtigen die Werte jedes erstmals vorkommenden Artikels summieren und in der Jahresübersicht auswerten.

-	A	B	C	D	E
1	Top	wie oft in diesen Jahr	gesamt Betrag	Artikel	Bezeichnung
2	1	8	-96416,11	10075	SW ME
3	2	11	-61127,94	104100	NACK.
4	3	10	-54846,03	93811	ERZUN
5	4	10	-51062,71	93810	SW ZU
6	5	7	-34685,12	104117	SW KA
7	6	5	-23742,93	10008	SW KA
8	7	2	-23375,26	127716	RD HA
9	8	6	-23198,22	10019	SW SC
10	9	7	-20690,9	163215	AUER
11	10	4	-19487,2	127715	RD MI
12
13		Artikel
14		118977	HACKF	-11.272,44	-11272,44
15		104117	SW KA	-9.780,40	-34685,12

-	A	B	C	D	E
1	Top	wie oft in diesen Jahr	gesamt Betrag	Artikel	Bezeichnung
2	1	=ZÄHLENWENN($B$14:$B$999;D2)	=KKLEINSTE($E$14:$E$999;A2)	=XVERWEIS(C2;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C2;$E$14:$E$999;$C$14:$C$999)
3	2	=ZÄHLENWENN($B$14:$B$999;D3)	=KKLEINSTE($E$14:$E$999;A3)	=XVERWEIS(C3;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C3;$E$14:$E$999;$C$14:$C$999)
4	3	=ZÄHLENWENN($B$14:$B$999;D4)	=KKLEINSTE($E$14:$E$999;A4)	=XVERWEIS(C4;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C4;$E$14:$E$999;$C$14:$C$999)
5	4	=ZÄHLENWENN($B$14:$B$999;D5)	=KKLEINSTE($E$14:$E$999;A5)	=XVERWEIS(C5;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C5;$E$14:$E$999;$C$14:$C$999)
6	5	=ZÄHLENWENN($B$14:$B$999;D6)	=KKLEINSTE($E$14:$E$999;A6)	=XVERWEIS(C6;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C6;$E$14:$E$999;$C$14:$C$999)
7	6	=ZÄHLENWENN($B$14:$B$999;D7)	=KKLEINSTE($E$14:$E$999;A7)	=XVERWEIS(C7;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C7;$E$14:$E$999;$C$14:$C$999)
8	7	=ZÄHLENWENN($B$14:$B$999;D8)	=KKLEINSTE($E$14:$E$999;A8)	=XVERWEIS(C8;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C8;$E$14:$E$999;$C$14:$C$999)
9	8	=ZÄHLENWENN($B$14:$B$999;D9)	=KKLEINSTE($E$14:$E$999;A9)	=XVERWEIS(C9;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C9;$E$14:$E$999;$C$14:$C$999)
10	9	=ZÄHLENWENN($B$14:$B$999;D10)	=KKLEINSTE($E$14:$E$999;A10)	=XVERWEIS(C10;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C10;$E$14:$E$999;$C$14:$C$999)
11	10	=ZÄHLENWENN($B$14:$B$999;D11)	=KKLEINSTE($E$14:$E$999;A11)	=XVERWEIS(C11;$E$14:$E$999;$B$14:$B$999)	=XVERWEIS(C11;$E$14:$E$999;$C$14:$C$999)
12
13		Artikel
14		118977	HACKF	-11272,44	=WENN(SUMME(--($B$14:B14=B14))=1;SUMMEWENN($B$14:$B$999;B14;$D$14:$D$999);0)
15		104117	SW KA	-9780,4	=WENN(SUMME(--($B$14:B15=B15))=1;SUMMEWENN($B$14:$B$999;B15;$D$14:$D$999);0)

Das Umkopieren hab ich damit gemacht.

Sub Jahresauswertung()



    On Error Resume Next

    

    Dim rng As Range

    Dim einfüg As Range

    Dim ini_copy_to As Long



    Sheets(1).Select

    ini_copy_to = 13

    

    With Sheets("Jahresauswertung")

        .Range("B13:D999").ClearContents

        .Cells(ini_copy_to, "B") = "Artikel"

    End With



    For mon = 1 To 12 'Spalten mit Monaten durchgehen, kopieren

        sp = mon * 3 + 4

        Set rng = Columns(sp).SpecialCells(xlCellTypeConstants, 1)

        Set einfüg = Sheets("Jahresauswertung").Cells(Rows.Count, "B").End(xlUp).Offset(1, 0)

        rng.Copy einfüg

        rng.Offset(, 1).Copy einfüg.Offset(, 1)

        rng.Offset(, -1).Copy einfüg.Offset(, 2)

    Next mon

    

    Sheets("Jahresauswertung").Select

    Set rng = Cells(ini_copy_to, "B").CurrentRegion

    

    'Rng.RemoveDuplicates (1)

    Set rng = Cells(ini_copy_to, "B").CurrentRegion

    Set rng = rng.Offset(1, 3).Resize(, 1)

    rng.Formula2Local = "=WENN(SUMME(--($B$14:B14=B14))=1;SUMMEWENN($B$14:$B$999;B14;$D$14:$D$999);0)"

End Sub

Das Gesamtwerk findest du hier
https://www.herber.de/bbs/user/162233.xlsm

Viel Erfolg!
Gruß, MCO

Top

wie oft in diesen Jahr

gesamt Betrag

Artikel

Bezeichnung

-96416,11

10075

SW ME

Top

wie oft in diesen Jahr

gesamt Betrag

Artikel

Bezeichnung

=ZÄHLENWENN($B$14:$B$999;D2)

=KKLEINSTE($E$14:$E$999;A2)

=INDEX($B$14:$C$999;VERGLEICH(C2;$E$14:$E$999;0);1)

=INDEX($B$14:$C$999;VERGLEICH(C2;$E$14:$E$999;0);2)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelne Auflistung

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread