Essenabrechnung

[Mika1405]

Hallo zusammen,
ich habe eine Liste erstellt, in der die Mahlzeiten pro Monat
  Essenabrechnung.xlsx (Größe: 154,6 KB / Downloads: 20) erfasst werden. Frühstück (Zeile 4) und Mittag (Zeile 5) sind recht einfach - weil es da nur jeweils einen Preis gibt.
In Zeile 6 wird es etwas spannender. Hier sollen Wahlleistungsessen erfasst werden. Jedes WL Essen hat anderen Preis. 
Könnte mir bitte jemand hier bzgl. einer Formel behilflich sein. Die Preise sind im Sheet "Daten" gelb hinterlegt.
Ganz herzlichen Dank im Voraus.
Mika

[Egon12]

Hallo Mika,

es gibt sicherlich noch kürzere Lösungen.

Ein simpler Weg ist:

=ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G2)*Daten!H2+ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G3)*Daten!H3+ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G4)*Daten!H4+ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G5)*Daten!H5+ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G6)*Daten!H6

Gruß Uwe

[Mika1405]

Hallo Uwe,
es funktioniert   super.
Vielen Dank nochmal.
Beste Grüße - MIka

[Egon12]

Hallo Mika,
 
diese Formel ist für die Zelle AJ6 zur Berechnung der verschiedenen Preise.
 
Die anderen Ergebnisse hast du ja schon. Da gibt es nichts zu kopieren.
 
Falls die Bereichsadresse aus der Tabelle deiner Demodatei von der ursprünglichen abweichen musst du Diese natürlich entsprechend anpassen. 
 
Ein Formelteil eines Preises: ZÄHLENWENN(Erfassung!$C$6:$AH$6;Daten!G2)*Daten!H2
Falls mehr Preise erforderlich sind nimmst du diesen Block und passt die Zelle aus Blatt Daten an.
 
 
Gruß Uwe

[BoskoBiati]

Hi,


einfache Möglichkeit:

Code:

=SUMME(WENN(C6:AH6<>"";SVERWEIS(C6:AH6;Daten!G2:H6;2;0);0))
=SUMMENPRODUKT(WENNFEHLER(SVERWEIS(C6:AH6;Daten!G2:H6;2;0);0)*1)

[tomtom58]

Hallo Zusammen,
ich hätte es wie Uwe gemacht, dennoch muss ich sagen Edgars Lösung hat was ... Super Idee.
Gruß Thomas

[BoskoBiati]

Hi,

ich weiß zwar nicht was die Version 2015 ist, aber auch das sollte besser sein als die Anfängerformel von Egon12:

Code:

=SUMME(ZÄHLENWENN(C6:AH6;Daten!G2:G6)*Daten!H2:H6)

[Egon12]

Hallo Edgar,
 
mich interessieren Formeln eigentlich gar nicht. Die benutzte ich einfach nur, falls es bequemer ist. Das solltest du schon längst bemerkt haben.
 
Vielleicht nur so viel für Interessierte: statt =SUMME --> SUMMENPRODUKT
 
also so:
 
=SUMMENPRODUKT(ZÄHLENWENN(Erfassung!$C$6:$AH$6; Daten!G2:G6); Daten!H2:H6)
 
ob da der TO sich was drunter vorstellen kann, habe ich jetzt meine Zweifel.
 
Gruß Uwe

[BoskoBiati]

Hi,

SUMME  ist besser als SUMMENPRODUKT, da ressourcenschonender.!

[Egon12]

Hallo Edgar,

5,25 wäre das Ergebnis --> falscher Preis (O2019).

Aber wenn es mit aller Gewalt um eine ganz kurze Formel geht dann UDF mit korrektem Preis:

Code:

Function WAHLESSEN(rngWahl, rngPr)
    Dim i&, Summe, iPr As Variant
        iPr = Application.Match(rngWahl, rngPr.Columns(1))
        For i = LBound(iPr) To UBound(iPr)
            If Not IsError(iPr(i)) Then Summe = Summe + rngPr.Cells(iPr(i), 2)
        Next i
    WAHLESSEN = Summe
End Function

Formel: =WAHLESSEN(C6:AH6;Daten!G2:H6)

Das wird der TO vermutlich ebenfalls nicht nachvollziehen können.

Gruß Uwe