Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Einkaufsliste - Automatischer Abgleich Arbeitsblätter

Forumthread: Einkaufsliste - Automatischer Abgleich Arbeitsblätter

Einkaufsliste - Automatischer Abgleich Arbeitsblätter
13.05.2024 20:51:32
Harald_2
Hallo zusammen,

im ursprünglichen Beitrag (siehe Link unten) hatte ich noch Anliegen bzgl. meiner Frage geäußert.
Ich hoffe mir wird an dieser Stelle weitergeholfen.
Der alte Beitrag wird in kurzer Zeit ins Archiv geschoben, ich hoffe ich habe das mit der Verlinkung korrekt gemacht.

https://www.herber.de/forum/messages/1977557.html

Beste Grüße
Harald
Anzeige

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einkaufsliste - Automatischer Abgleich Arbeitsblätter
13.05.2024 21:24:08
{Boris}
Hi,

anbei mal eine reine Formellösung. Die ist auch immer dynamisch.
Man könnte noch optimieren, dass die Zutatenliste noch zusammengefasst wird - wenn z.B. für mehrere Tagesgerichte Nudeln benötigt werden - aber das erst, wenn Du grundsätzlich damit leben könntest.

Die Spalten ab J kannst Du alle ausblenden.

https://www.herber.de/bbs/user/169430.xlsx

VG, Boris
Anzeige
Falls Du die Hilfsspalten...
13.05.2024 21:55:31
{Boris}
Hi,

...also die Zutatenauflistung pro Tag nicht brauchst (ab Spalte J), dann kannst Du auch diese eine Formel verwenden. Damit sind die Hilfsspalten obsolet.
Sie kommt in

F3:
=LET(Mo;INDIREKT("'"&D3&"'!A4:C30");Di;INDIREKT("'"&D4&"'!A4:C30");Mi;INDIREKT("'"&D5&"'!A4:C30");Do;INDIREKT("'"&D6&"'!A4:C30");Fr;INDIREKT("'"&D7&"'!A4:C30");Sa;INDIREKT("'"&D8&"'!A4:C30");So;INDIREKT("'"&D9&"'!A4:C30");Alles;VSTAPELN(Mo;Di;Mi;Do;Fr;Sa;So);FILTER(Alles;INDEX(Alles;;1)>0))

VG, Boris
Anzeige
AW: Einkaufsliste - Automatischer Abgleich Arbeitsblätter
14.05.2024 06:10:01
Oberschlumpf
Moin Harald,

du hast auf den Beitrag im Forum verlinkt, der zwar noch erreichbar ist, was aber in Kürze nicht mehr möglich sein wird; probier deinen Link demnächst mal aus ;-)

Das hier ist der Archiv-Link zu deinem alten Beitrag:
https://www.herber.de/forum/archiv/1976to1980/1976879_Einkaufsliste_Automatischer_Abgleich_Arbeitsblaetter.html

Hilft denn die Idee von Boris?

Ciao
Thorsten
Anzeige
Vergiss die Datei...
13.05.2024 21:43:34
{Boris}
Hi,

...sie funktioniert zwar - ist aber viel zu umständlich (passiert mir manchmal). Anbei die bessere Version.

https://www.herber.de/bbs/user/169431.xlsx

VG, Boris
AW: Vergiss die Datei...
14.05.2024 06:36:58
Harald_2
Guten Morgen Boris,

vielen Dank für die Datei, dass sieht sehr gut aus.
Zwei Anliegen hätte ich dennoch.
Könnte man, wie du bereits geschrieben hast, gleiche Zutaten in der Einkaufsliste zusammenfassen?
Teilweise habe ich das Gefühl, dass die Kontrollkästchen zum Abhaken nicht immer dynamisch sind.
Wenn ich die Zutaten im Speiseplan wechsle tauchen manchmal Zutaten auf der Einkaufsliste ohne Kontrollkästchen auf.

Userbild

Beste Grüße
Harald
Anzeige
Mit Zusammenfassung der Zutaten
14.05.2024 10:30:56
{Boris}
Hi,

die Kontrollkästchen können (ohne VBA) gar nicht dynamisch sein. Die musst Du manuell anpassen, wenn Du denn weiter damit arbeiten möchtest.

Ansonsten mit VBA, wie von Thorsten bereits gezeigt (grüner Haken mit Zellselektion oder Doppelklick).

Anbei habe ich die Einkaufliste in den Spalten J, K und L noch zusammengefasst.
Als EINDEUTIG habe ich die Kombination aus Zutat und Einheit genommen (also ist 1 TL und 1 EL Brühe ein Unterschied).

https://www.herber.de/bbs/user/169438.xlsx

VG, Boris
Anzeige
Noch ein Hinweis
14.05.2024 11:00:08
{Boris}
Hi,

die zusammengefasste Einkaufliste orientiert sich ja bezüglich Eindeutigkeit - wie bereits geschrieben - an der Kombination aus Zutat und Einheit.
Jetzt hast Du aber z.B. bei der Einheit für Gericht 3, Zelle C5 bei "st. " ein Leerzeichen mit drin - bei Gericht 11, Zelle C8 steht "st." ohne Leerzeichen. Ist mir aufgefallen, weil die Möhren 2 mal in der Zusammenfassung vorkamen. Das musst Du mal überprüfen / korrigieren und auf Einheitlichkeit achten.

VG, Boris
Anzeige
AW: Noch ein Hinweis
14.05.2024 20:56:10
Harald_2
Hallo Boris,

vielen Dank für den Hinweis.
Ich bin mit der Datei soweit sehr zufrieden.
Wenn es jetzt noch eine Möglichkeit gäbe, diese Datei ebenfalls mit Excel für Mobilgeräte wie das iPhone nutzen zu können….
Aber so wie ich das bisher recherchiert habe, ist dies wohl nicht möglich.
Dennoch vielen Dank für die Mühe und die tolle Lösung.

Beste Grüße
Harald
Anzeige
AW: Noch ein Hinweis
15.05.2024 10:02:02
{Boris}
Hi,

angezeigt wird es ja auch auf dem Handy korrekt - man kann halt nur nix abhaken.

Abschließend hier nochmal die Datei. Diesmal habe ich noch die Zusammenfassung alphabetisch nach Zutaten sortiert.

https://www.herber.de/bbs/user/169468.xlsx

VG, Boris
Anzeige
AW: Noch ein Hinweis
15.05.2024 10:46:01
Harald_2
Hallo Boris,

ja, das stimmt.
Vielen Dank für die alphabetische Sortierung.

Beste Grüße
Harald
AW: Noch ein Hinweis
15.05.2024 14:18:49
Harald_2
Hi Boris,

eine Sache ist mir noch aufgefallen.
Wenn ich im Speiseplan "Jeder für sich selbst" oder ein Gericht vom Lieferdienst (siehe Reiter "Gerichte") auswähle, für die es ja kein Blatt mit Zutaten gibt, wird die Einkaufsliste überhaupt nicht angezeigt.
Auch wenn ich an anderen Tagen Gerichte zum selber kochen angewählt habe.
Liese sich da etwas machen?
Ich hab dir hier mal meine aktuellste Datei hochgeladen, vielleicht könntest du damit arbeiten.

https://www.herber.de/bbs/user/169484.xlsx

Beste Grüße
Harald
Anzeige
AW: Noch ein Hinweis
15.05.2024 14:37:49
{Boris}
Hi,

ersetze die Formel in I4 durch diese hier:

=LET(Mo;WENNFEHLER(INDIREKT("'"&D4&"'!A4:C30");"");Di;WENNFEHLER(INDIREKT("'"&D5&"'!A4:C30");"");Mi;WENNFEHLER(INDIREKT("'"&D6&"'!A4:C30");"");Do;WENNFEHLER(INDIREKT("'"&D7&"'!A4:C30");"");Fr;WENNFEHLER(INDIREKT("'"&D8&"'!A4:C30");"");Sa;WENNFEHLER(INDIREKT("'"&D9&"'!A4:C30");"");So;WENNFEHLER(INDIREKT("'"&D10&"'!A4:C30");"");Alles;VSTAPELN(Mo;Di;Mi;Do;Fr;Sa;So);Ende;FILTER(Alles;INDEX(Alles;;1)>0);FILTER(Ende;INDEX(Ende;;1)>""))

VG, Boris
Anzeige
AW: Noch ein Hinweis
15.05.2024 14:47:51
Harald_2
Hallo Boris,

durch die Formel werden Gerichte ohne Zutaten nicht mehr berücksichtigt und es "zerschießt" nicht die Einkaufsliste, aber wenn ich statt einem Lieferdienstgericht nun ein Gericht mit Zutaten wieder auswähle, werden die Zutaten nicht mehr in der Einkaufsliste zusammengefasst.

Beste Grüße
Harald
Anzeige
AW: Kann ich nicht nachvollziehen...
15.05.2024 14:56:43
Harald_2
Hi,

in deiner Datei funktioniert es, dann ist mir wohl irgendwo ein Fehler unterlaufen.

Vielen Dank!

Beste Grüße
Harald
Anzeige
Damit Du auch...
15.05.2024 15:26:40
{Boris}
Hi,

...verstehst, was die Formel macht:

Für jeden einzelnen Tag werden - abhängig von der Nummer des Gerichts (die ja dem Blattnamen entspricht) - die Angaben zu den Zutaten aus dem entsprechenden Blatt ausgelesen und einer Variablen zugewiesen:
Hier am Beispiel für den Montag - die Variable heißt "Mo":

Mo;WENNFEHLER(INDIREKT("'"&D4&"'!A4:C30");"")

Das Selbe geschieht für alle anderen Tage - nur mit dem Unterschied, dass sich D4 auf D5, D6 etc. ändert - und die Variablennamen heißen weiter Di, Mi, Do etc.
Wenn das Blatt nicht vorhanden ist, wird mit WENNFEHLER ein Leerstring erzeugt.

Am Ende der Formel werden dann alle Einzelergebnisse (also für Mo bis So) mittels VSTAPELN untereinander gebracht und der Variablen "Alles" zugewiesen:

Alles;VSTAPELN(Mo;Di;Mi;Do;Fr;Sa;So)

Der Rest der Formel

Ende;FILTER(Alles;INDEX(Alles;;1)>0);FILTER(Ende;INDEX(Ende;;1)>"")

sorgt nur dafür, dass keine Leerzeilen und Nuller in der zusammengeführten Liste verbleiben.

VG, Boris
Anzeige
AW: Damit Du auch...
15.05.2024 15:43:53
Harald_2
Hi,

vielen Dank für deine Erklärung.
Ich hoffe ich konnte was drauß mitnehmen und das in Zukunft vielleicht selbst anwenden, ohne das ich direkt Hilfe benötige ;).

Beste Grüße
Harald

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige