Vergleich wenn evtl. VBA

Forumthread: Vergleich wenn evtl. VBA

Melanie

Hallo Zusammen,
kann mir jemand helfen?
Ich möchte in Spalte H die gezeigte Anzeige habe. Die Abfrage müsste so laufen
Prüfe Materialnummern auf gleich, dann suche den kleinsten Preis, kommt dieser mehrmals vor, dann verbinde Verfahren mit &. Sonst nur das Verfahren mit dem kleinsten Preis. Ich habe es mit mehreren wenn -Funktionen versucht, das hat aber nicht geklappt.
Tabelle4

	C	D	E	F	G	H
14	Material	Verfahren	Stück	Preis	Preis per Stück	Auswertung
15
16	1130000585	DY	76	148	1,95	DYGRSPWI
17	1130000585	GR	76	148	1,95
18	1130000585	SP	76	148	1,95
19	1130000585	WI	76	148	1,95
20	1130000589	DY	4.040	483	0,12	DY
21	1130000589	GR	4.040	488	0,12
22	1130000589	SP	4.040	541	0,13
23	1130000589	WI	4.040	541	0,13
24	1130000637	GR	3.270	419	0,13	GR
25	1130000637	DY	3.270	438	0,13
26	1130000637	SP	3.270	468	0,14
27	1130000637	WI	3.270	474	0,14
28	1130001401	DY	1.890	286	0,15	DYSP
29	1130001401	SP	1.890	286	0,15
30	1130001401	GR	1.890	347	0,18
31	1130001401	WI	1.890	401	0,21

Tabellendarstellung in Foren Version 5.5

Ich hoffe auf HILFE, evtl. auch VBA, lese mich da gerade ein.
Grüße Melanie

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Vergleich wenn evtl. VBA

24.11.2010 16:12:13

Renee

Hi Melanie,
Ist zwar nicht sehr elegant (bin zu lazy zum richtig Knobeln ;-), aber funktioniert, wenn es immer 4er Gruppen sind. In Zelle F3 und Formel runterkopieren:

=WENN(REST(ZEILE();4)=3;
WENN(D3=MIN(BEREICH.VERSCHIEBEN(D3;0;0;4));B3;"")&
WENN(D4=MIN(BEREICH.VERSCHIEBEN(D3;0;0;4));B4;"")&
WENN(D5=MIN(BEREICH.VERSCHIEBEN(D3;0;0;4));B5;"")&
WENN(D6=MIN(BEREICH.VERSCHIEBEN(D3;0;0;4));B6;"");"")

GreetZ Renée

AW: Vergleich wenn evtl. VBA

24.11.2010 16:15:49

abu

Hallo Melanie,
sieht deine Tabelle wirklich so aus? Ich meine faengt es bei C14 an? Muesste der Wert von H20 nicht DYGR sein und H24 sollte doch GRDY sein?
Am besten Du laeds mal eine Beispieldatei hoch so wie sie wirklich ist... vllt. kann ich dann helfen.
Gruss
Abu

oops, das hab ich auch übersehen...

24.11.2010 16:25:39

Renee

nämlich den Beginn auf Zeile 16 der Daten.
Aber dann muss in meiner Formel nur das ..;4)=3; in der ersten Formelzeile durch ..;4)=0; ersetzt werden.
Danke abu..
trotzdem meine ich, dass du mit deinen anderen Werten in H20/H24 falsch liegst!
GreetZ Renée

AW: oops, das hab ich auch übersehen...

24.11.2010 16:33:13

abu

Hi Renée,
hast recht. Ich hab nach Preis/Stueck geschaut....
Gruss
abu

AW: Vergleich wenn evtl. VBA

25.11.2010 09:37:58

Melanie

Hallo Zusammen,
danke für die vielen Nachrichten.
Der Wert in H20 ist richtig, da nur der kleinste Wert also die 419 genommen werden soll. Wäre noch ein Wert 419 dann wäre die Lösung GRDY.
Die Auswertung fängt in A1 an, ich nur diesen Teil raus kopiert, damit es am deutlichsten ist :-)
Zum Verständnis: Gleiche Materialnummern, nach Preis (Spalte F) vergleichen, wenn gleicher Wert, dann alle Verfahren der gleichen Materialnummer und gleichen Preis mit & verbinden. Sonst nur den kleinsten Preis und das Verfahren ausgeben.
Viele Grüße aus dem verschneiten Sauerland
Melanei

Formel Beispiel anpassen...

25.11.2010 12:11:40

Renee

dürfte eigentlich für dein Excel-Level kein Problem sein, Melanie
oder ? ...in F1 (und runterkopieren):

=WENN(REST(ZEILE();4)=1;
WENN(D1=MIN(BEREICH.VERSCHIEBEN(D1;0;0;4));B1;"")&
WENN(D2=MIN(BEREICH.VERSCHIEBEN(D1;0;0;4));B2;"")&
WENN(D3=MIN(BEREICH.VERSCHIEBEN(D1;0;0;4));B3;"")&
WENN(D4=MIN(BEREICH.VERSCHIEBEN(D1;0;0;4));B4;"");"")

GreetZ Renée

Beliebteste Forumthreads (12 Monate)

Forumthread: Vergleich wenn evtl. VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread