genauBescheibung "Sumewenn" v. davor

Hallo, es geht um VBA
ich fange noch einmal von vorne an, da ich glaube ich habe es nicht genau genug erklärt.
Erst einmal ein kleiner Auszug
Zeile ColA; ColB
9 166 32 Einschraubverbindersatz EINSTZ24
14 134 57 Einschraubverbindersatz EINSTZ24
23 77 52 Einschraubverbindersatz EINSTZ24
55 25 25 Einschraubverbindersatz EINSTZ24
in den Zeilen 9, 14, 23, 55 kommen die Einschraubverbindersatz EINSTZ24 vor
Die anderen Zeilen, die dazwischen liegen, gibt es ebenfalls mehrfach
Diese Tabelle stellt uns die Abteilung "x" aus Ihrer Software zur Verfügung.
Nun müssen wir all die Artikel usw. in eine Lieferanten Anfrage schreiben.
Es wäre eine riesen Vereinfachung für uns, wenn wir einfach die Summe aller gleichen Artikel hätten, dann bräuchten wir statt 33 Pos. nur 12 Pos.
Erst weitere Erklärungen:
Durch Excel Summewenn kommen die Werte in Spalte ColA, die Werte in ColB stammen aus der Liste von der Abteilung.
summewenn runterkopiert, dadurch die Ergebnisse in ColA
Die Anfrage könnte dann wie folgt aussehen;
166 Stck Einschraubverbindersatz EINSTZ24 usw. = oberster Wert Zeile 9
Alle anderen Werte dieses Artikels ColA Zeile 14, 23 + 55 hätte ich gerne auf "0" gesetzt und das dann auch auf die anderen Artikeln übertragen.
d.h., also immer der höchste Wert bleibt in der Liste stehen.
nun kommt es natürlich vor , dass es nur einen Artikel gibt. dass würde dann wie folgt aussehen z.B. ColA gleich 2 - ColB gleich 2.
Würde es einen zweiten Artikel geben, wäre ColA immer größer ColB, nur der kleinere ColA Wert soll dann auf 0 gesetzt werden.
Die Formel Summewenn in Excel wäre mir lieber in VBA, da die nächste Liste dann z.B. größer oder kleiner ausfallen könnte.
Ich hatte es versucht mit &Zeile, aber es hat nicht geklappt.
PS: das AnfangsSheet ist ab Zelle A7 so gut wie blank. Die Artikel kommen mit Kopie Pais hinein
Ich hoffe mich endlich einmal korrekt ausgedrückt zu haben, weiß aber auch, das ist eine Arbeit für Hobbyprogrammierer.
Vielleicht schaffe ich es auch einmal, auf Fragen im Forum zu antworten.
Gruß
Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

B C D E F G H I J K L 3 ZÄHLENWENN($D$6:D6;D6) 4 MAX(WENN(D6=D:D;B:B;0)) 5 WENN(ZÄHLENWENN($D$6:D6;D6)>1;0;MAX(WENN(D6=D:D;B:B;0))) 6 166 32 xxx 1 560 560 7 134 57 xxx 2 560 0 8 3 34 ccd 1 34 34 9 34 5 ccd 2 34 0 10 560 23 xxx 3 560 0 11 12 Zelle Formel G6 {=WENN(ZÄHLENWENN($D$6:D6;D6)>1;0;MAX(WENN(D6=D:D;B:B;0)))} Achtung, Matrixformel enthalten! Die geschweiften Klammern{} werden nicht eingegeben. Verlassen Sie den Zelleneditor mit Strg+Shift + Enter, statt Enter alleine.

Sub MaxMenge() Dim r As Range, objDIC As Object Dim arrOUT(), oOBJ, i As Integer Set objDIC = CreateObject("scripting.dictionary") With Sheets(1) For Each r In .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)) objDIC(r.Offset(, 1).Value) = Application.Max(objDIC(r.Offset(, 1).Value), r.Value) Next r End With ReDim arrOUT(1 To objDIC.Count, 1 To 2) For Each oOBJ In objDIC i = i + 1 arrOUT(i, 1) = oOBJ arrOUT(i, 2) = objDIC(oOBJ) Next Sheets(2).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(objDIC.Count, 2) = arrOUT End Sub

Beliebteste Forumthreads (12 Monate)

genauBescheibung "Sumewenn" v. davor

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	B	C	D	E	F	G	H	I	J	K	L
3				ZÄHLENWENN($D$6:D6;D6)
4					MAX(WENN(D6=D:D;B:B;0))
5						WENN(ZÄHLENWENN($D$6:D6;D6)>1;0;MAX(WENN(D6=D:D;B:B;0)))
6	166	32	xxx	1	560	560
7	134	57	xxx	2	560	0
8	3	34	ccd	1	34	34
9	34	5	ccd	2	34	0
10	560	23	xxx	3	560	0
11
12

Zelle	Formel
G6	{=WENN(ZÄHLENWENN($D$6:D6;D6)>1;0;MAX(WENN(D6=D:D;B:B;0)))}

genauBescheibung "Sumewenn" v. davor

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread