Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfung ob eine MatNr 2 Lieferanten hat

Prüfung ob eine MatNr 2 Lieferanten hat
21.09.2018 13:08:29
David
Hallo zusammen,
ich stehe vor folgendem Problem, und zwar möchte ich mit einer Schleife eine Auswertung starten um zu sehen ob eine Materialnummer 2 Lieferanten hat.
Alle MatNummern und die Lieferanten stehen auf einem Datenblatt und auf dem anderen Arbeitsblatt steht nochmal die MatNummer und die Bezeichnung.
Kann mir jemand hier mit einem Code aushelfen der als Lösung in einer Zelle "ja" ,wenn ein Artikel 2 oder mehr Lieferanten hat und "nein" wenn nur nur 1 Lieferant diesen Artikel liefert, ausgibt?
Viele Grüße und ein schönes Wochenende!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Prüfung ob eine MatNr 2 Lieferanten hat
21.09.2018 13:10:51
Rudi
Hallo,
Alle MatNummern und die Lieferanten stehen auf einem Datenblatt
wenn die Kombinationen einmalig sind, sollte doch ZÄHLENWENN() ausreichen.
Gruß
Rudi
AW: Prüfung ob eine MatNr 2 Lieferanten hat
21.09.2018 13:41:15
David
Hab nicht bedacht zu erwähnen, dass in dem Datenblatt mit allen MatNummern und Lieferanten die selbe MatNummer vom selben Lieferanten öfter vorkommen kann.
Im Prinzip sind im großen Datenblatt alle Bestellungen der Artikel der letzten Jahre und im kleinen Datenblatt die Bestellungen der letzten zwei Jahre und bei diesen MatNummern möchte ich schauen, ob es dazu einen oder mehrere Lieferanten gibt.
AW: Prüfung ob eine MatNr 2 Lieferanten hat
21.09.2018 14:25:28
Rudi
Hallo,
Function AnzMatLief(MatNr, rngMat As Range, rngLief As Range)
Dim arrMat, arrLief
Dim objMatLief As Object, objMatCount As Object, oObj
Dim i As Long
arrMat = rngMat.Value
arrLief = rngLief.Value
Set objMatLief = CreateObject("scripting.dictionary")
Set objMatCount = CreateObject("scripting.dictionary")
For i = LBound(arrMat) To UBound(arrMat)
objMatLief(arrMat(i, 1) & "_" & arrLief(i, 1)) = 0
Next i
For Each oObj In objMatLief
objMatCount(Split(oObj, "_")(0)) = objMatCount(Split(oObj, "_")(0)) + 1
Next oObj
AnzMatLief = objMatCount(CStr(MatNr))
End Function
Arbeitsblatt 'Tabelle1'
ABCDEF
1MatNrLieferant  MatNrAnzLief
2100z  1003
3100d  1018
4100i  1026
5101c  1035
6101i  1043
7101a  1057
8101f  1061
9101j  1074
10101o  1085
11101h  1094
12101l  1101
13102j  1114
14102r  1125
15102t  1134
16102c  1145
17102d  1154
18102i  1165
19103m  1175
20103y  1185

ZelleFormel
F2=AnzMatLief(E2;$A$2:$A$100;$B$2:$B$100)

Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige