=_xlfn.SUMIFS(...) ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function SUMIFS(Zählbereich, Krit1bereich, Krit1, krit2bereich, Krit2) Dim Z SUMIFS = 0 For Z = 1 To Zählbereich.Cells.Count If Krit1bereich(Z) = Krit1 And krit2bereich(Z) = Krit2 Then SUMIFS = SUMIFS + Zählbereich(Z) End If Next Z End Function

Function SUMIFS(Zählbereich, Krit1bereich, Krit1, krit2bereich, Krit2) '=SUMMENPRODUKT((A1:A100="x")*(B1:B100="y")*C1:C100) SUMIFS = Application.SumProduct((Krit1bereich = Krit1) * (Krit1bereich = Krit1) * Zählbereich) End Function

Hallo Gerd,
im Code ist nix und den Ersteller fragen ist so eine Sache.
Beim Googlen nach dem Ausdruck " _xlfn.SUMIFS" kriegt man schon Treffer, wie den von
http://www.experts-exchange.com/Software/Office_Productivity/Office_Suites/MS_Office/Excel/Q_23738382.html
der hier nachfolgend steht. So wie mein Minimalenglisch mir die Sache darstellt, hat da jemand in XL2007 die Funktion "SUMIFS()" benutzt die es in anderen XL-Versionen nicht gibt.
Wenn er nun die Mappe im alten Format als xls abspeichert wird daraus " _xlfn.SUMIFS()" , so wie in der Mappe die ich erhielt.
Das würde ich gerne bestätigt haben von jmdn. von hier der XL2007 hat und im egensatz zu mir und dem Ersteller der mappe auch Ahnung :-)
Frage auf noch offen stellen geht nicht, bzw. sinnlos weil ich grad noch auf Erich antworten will.
*************************************************************************************
I have a budget worksheet that I need to keep a running total of expenses by comparing criteria from 2
different columns and then sum if those criteria are met.
For example, I want to know the fuel expense for the Shop (dept 60, Colum D) and Operations (Dept 70,
Column E). I want the total in D1 to reflect the sum of all costs in J13:J28 IF Account# is 12000 and Dept#
is 60. I wrote the formula successfully using Excel 2007, but that is because it has a "SUMIFS" (with an S)
to allow for multiple criteria to be considered. XP and earlier versions do not.
When I saved the worksheet, I had it saved as a 97-2007 file thinking it would convert properly when I
tried to use it here at work. It did not. I wrote it as follows:
=sumifs($J$13:$J$28,$G$13:$G$28,"=12020",$I$13:$I$28,"=60") and it worked in Excel 2007.
When I tried to open it at work, it had changed the formula to this:
_xlfn.SUMIFS($J$13:$J$28,$G$13:$G$28,"=12020",$I$13:$I$28,"=60")
Now, when you enter the account number, I get an error. Nothing works.
I would appreciate any help you can provide. I need to write it so that is will be compatible with XP and
other versions of Excel other than 2007. I have attached the worksheet for your review.
*************************************************************************************
Gruß
Reinhard

Hallo Gerd,
ich stelle auch auf noch offen, aber jetzt nur deshalb weil ich mir noch eine Bestätigung eines hiesigen XL2007 Besitzers erhoffe, daß es so ist, wenn man in XL2007 "SUMIFS" benutzt, dies dann im alten Format speichert und mit "altem" XL öffnet daraus dann "_xlfn.SUMIFS" wird.
Die "Hausaufgaben" der MS-Programmierer will/kann ich ja nicht machen. Vielleicht sollten sie sich das zauberbuch von excelformeln.de kaufen, hier mal Erich fragen oder sonstwas.
Ich sehe es aus meiner Laiensicht heraus als nicht so schwer lösbar an in XL2007 benutzte Formeln wie "SUMIFS" beim Abspeichern als alte Version in Formeln für alte Versionen umzuwandeln.
Okay, das dann wieder in "SUMIFS" umzuwandeln in XL2007 kann schwierig werden.
Naja, nicht mein problem :-)
Gruß
Reinhard

Function SUMIFS1(rngSum As Range, _ rngKr1 As Range, Krit1, _ rngKr2 As Range, Krit2) As Double SUMIFS1 = Application.Evaluate("SUMPRODUCT((" & _ rngKr1.Address & "=""" & Krit1 & """)*(" & _ rngKr2.Address & "=" & Krit2 & ")*" & rngSum.Address & ")") End Function Function SUMIFS2(strSum As String, _ strKr1 As String, Krit1, _ strKr2 As String, Krit2) As Double SUMIFS2 = Application.Evaluate("SUMPRODUCT((" & _ strKr1 & "=""" & Krit1 & """)*(" & _ strKr2 & "=" & Krit2 & ")*" & strSum & ")") End Function Sub tst() MsgBox SUMIFS1(Range("C2:C6"), Range("A2:A6"), "A", Range("B2:B6"), 1) MsgBox SUMIFS2("C2:C6", "A2:A6", "A", "B2:B6", 1) End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread