Übereinstimmung mehrerer Kriterien

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Robert,
ohne den Aufbau drastisch zu verändern (was du untersagst) kann zumindest ich es nicht mit einer Formel lösen - daher lasse ich den Beitrag offen.
Was ich dir anbieten könnte wäre eine Lösung mit VBA, die wäre dann aber sehr langsam. Oder eine Lösung mit Access, die wäre dann sehr schnell aber auch sehr komplex. Oder mit SAP, aber das wäre sinnlos teuer und overkill :-)
Präventive Rückfragen (und ja, es ist mir klar dass es in deiner Mastertabelle nicht um Kuchen geht):
1) Ein Apfelkuchen braucht mindestens 5 Äpfel und 300g Mehl. Dein unveränderliches Tab2 hat aber keine Mengen gelistet. Wenn ich also 1 Apfel und einen Rest von 100g Mehl habe reicht es nicht für einen Kuchen, aber die Zutaten würden trotzdem nicht gelistet werden
2) Angenommen, in den Apfelkuchen kommt noch Zucker aber es ist keiner im Haus. Erwartest du dann auf der Einkaufsliste dass Eier UND Zucker auftauchen? Oder reicht es, dass hinter Apfelkuchen stände "1 oder mehr Zutaten fehlen"
3) Soll die Einkaufsliste dahingehend generiert werden dass ständig sämtliche Kuchen gebacken werden können, oder soll es per Click auf einen Kuchen für ebendiesen generiert werden?
LG,
Klaus M.
jetzt hab ich Hunger

Hi
zumindest das "OK" kannst du mit dieser Formel ermitteln:


=WENN(ZÄHLENWENN(Rezepte!A:A;A1)=SUMME(ISTZAHL(VERGLEICH(WENN(Rezepte!$A$1:$A$5=A1;Rezepte!$B$1:$B$5; "xxx");'Zutaten vorhanden'!A:A;0))*1);"OK";"---")

Das Ermitteln der konkret fehlenden Zutaten wird in dieser Form mit Standard-Formeln schwierig.
Eine VBA - Lösung könnte so aussehen:
1. folgender Code in ein allgemeines Modul:


Function Rezeptprüfung(Produkt As String, Rezepte As Range, Zutaten As Range) As String
Dim arrRezept As Variant
Dim arrZutaten As Variant
Dim strCheck As String
Dim i As Long
arrRezept = Intersect(Rezepte, Rezepte.Worksheet.UsedRange).Value
arrZutaten = Intersect(Zutaten, Zutaten.Worksheet.UsedRange).Value
For i = 1 To UBound(arrRezept, 1)
If arrRezept(i, 1) = Produkt Then strCheck = strCheck & "|" & arrRezept(i, 2)
Next
strCheck = strCheck & "|"
For i = 1 To UBound(arrZutaten, 1)
strCheck = Replace(strCheck, "|" & arrZutaten(i, 1) & "|", "|")
Next
If strCheck = "|" Then
Rezeptprüfung = "OK"
Else
Rezeptprüfung = Replace(Mid(strCheck, 2, Len(strCheck) - 2), "|", ", ") & " fehlen"
End If
End Function

als Formel in die Zelle B1 auf dem Blatt "Einkaufsliste dann:


=Rezeptprüfung(A1;Rezepte!A:B;'Zutaten vorhanden'!A:A)

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Übereinstimmung mehrerer Kriterien

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread