Guten Abend zusammen,
ich soll für unser Küchenteam nachstehende Aufgabe lösen: In einer Rezeptedatei (1. Upload) sind die Zutaten für das jeweilige Gericht erfasst. In einer zweiten Datei sind die Lebensmittel mit Preisen (2. Upload)erfasst.
In der Rezeptedatei sollen die Kosten für die einzelnen Lebensmittel berechnet werden. Die Zutaten, die in der Rezeptedatei in Spalte C stehen, müssen in der Lebensmittelliste in Spalte A gesucht werden und der dazugehörende Preis, der in Spalte F der Lebensmittelliste steht, soll mit den Mengen der Rezeptedatei in Spalte A multipliziert und in Spalte G geschrieben werden.
Es gibt schon über 200 Rezeptdateien, die im Ordner "Rezepturen" abgelegt sind, so dass ich wohl eine VBA-Lösung brauche. Ich habe heute den ganzen Tag nach einer Lösung gesucht, war aber nicht erfolgreich. Kann mir bitte jemand helfen? Wäre super!
Im voraus schon herzlichen Dank
Karin
https://www.herber.de/bbs/user/53742.xls
https://www.herber.de/bbs/user/53743.xls

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: nach 2 Werten suchen und berechnen

10.07.2008 22:30:27

Erich
AW: nach 2 Werten suchen und berechnen

10.07.2008 23:12:42

Karin
AW: nach 2 Werten suchen und berechnen

11.07.2008 18:16:00

Karin

AW: nach 2 Werten suchen und berechnen

10.07.2008 22:30:27

Erich

Hallo Karin,
dafür brauchts wohl kein VBA, sondern nur die Formeln in Spalte G:

	A	B	C	D	E	F	G
9	9,0	kg	Rindergeschnetzeltes	1,2	kg		142,20
10	0,8	l	Sesamöl nativ	0,1	l		3,56
11	1,5	kg	Zwiebeln, gehackt	0,2	kg		#NV

Formeln der Tabelle

Zelle	Formel
A9	=WENN(D9/10$B$4=0;"";D9/10$B$4)
B9	=WENN(E9<>"";E9;"")
G9	=WENN(ISTLEER(A9)+(A9="")+ISTLEER(B9); ""; WENN(B9<>SVERWEIS(C9;[53743.xls]Küche!$A$2:$D$35;4;FALSCH); "Einheit?"; RUNDEN(A9*SVERWEIS(C9;[53743.xls]Küche!$A$2:$F$35;6;FALSCH); 2)))
A10	=WENN(D10/10$B$4=0;"";D10/10$B$4)
B10	=WENN(E10<>"";E10;"")
G10	=WENN(ISTLEER(A10)+(A10="")+ISTLEER(B10); ""; WENN(B10<>SVERWEIS(C10;[53743.xls]Küche!$A$2:$D$35;4;FALSCH); "Einheit?"; RUNDEN(A10*SVERWEIS(C10;[53743.xls]Küche!$A$2:$F$35;6;FALSCH); 2)))
A11	=WENN(D11/10$B$4=0;"";D11/10$B$4)
B11	=WENN(E11<>"";E11;"")
G11	=WENN(ISTLEER(A11)+(A11="")+ISTLEER(B11); ""; WENN(B11<>SVERWEIS(C11;[53743.xls]Küche!$A$2:$D$35;4;FALSCH); "Einheit?"; RUNDEN(A11*SVERWEIS(C11;[53743.xls]Küche!$A$2:$F$35;6;FALSCH); 2)))

Statt 53743.xls musst du den Namen der Lebensmittellisten-Datei einsetzen.
#NV kommt natürlich raus, wenn eine Zutat nicht in der Liste steht.
Ein größeres Problem vielleicht: Excel weiß natürlich nicht, was z. B. ein "EL" ist,
und kann nicht ausrechnen, was 20 EL kosten, wenn der Preis pro kg angegeben ist...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

AW: nach 2 Werten suchen und berechnen

10.07.2008 23:12:42

Karin

Hallo Erich,
zuerst einmal herzlichen Dank für deine Antwort. Deine Formeln werde ich morgen früh checken. Für das leere Formular, mit dem in Zukunft Rezepte erfasst werden, kann ich mir das Arbeiten mit Formeln gut vorstellen. Ich bin halt auf VBA gekommen, weil es ja schon über 200 Rezepte gibt und ich in diese Dateien die Formeln nicht einzeln reinkopieren möchte. Hast du eine Idee, wie ich das bei den schon vorhandenen Dateien lösen kann?
Bis morgen!
Karin

AW: nach 2 Werten suchen und berechnen

11.07.2008 18:16:00

Karin

Hallo Erich,
habe heute deine Formel getestet - einwandfrei!!
Herzlichen Dank
Karin

305 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen

Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...

13.08.2008 12:52:02

Thread-ID: 1001495

9 Beiträge

Zeilen einfärben abhängig von Zellwerten

Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...

18.08.2008 16:57:26

Thread-ID: 1002687

6 Beiträge

Letzen wert in Zeile(nicht Spalte)

hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...

28.08.2008 21:25:00

Thread-ID: 1005592

5 Beiträge

Zeile mit Werten aus anderer Tabelle vergleichen

onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...

29.08.2008 10:37:00

Thread-ID: 1005722

3 Beiträge

von Datum bis Datum suchen und Werte in die Spalte

Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...

07.09.2008 09:31:20

Thread-ID: 1007931

8 Beiträge

Wert innerhalb Array suchen

David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David

19.09.2008 08:48:14

Thread-ID: 1010894

3 Beiträge

Alle verwandten Forumthreads anzeigen

Text verbinden und den Inhalt der Zelle ausgeben

In Textfile bestimmte Zeile suchen

Zeilen autom nach Werten d. Spalte C sortieren

zeile ermitteln, werte prüfen

Wert in Tabelle suchen und summieren.

In Zeile suchen und Spalte löschen

String in Zeilen suchen

Zeilen einfügen nach Wertwechsel