Office: Sumif mit mehreren Kriterien

Hallo Forum,

ich hab folgendes Problem bei dem ich nicht weiter komme.
Ich hab mir zwei Codes gebastelt die einmal:

Range("E1").Value = " Total: " & WorksheetFunction.SumIf(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0")
With Range("E1")
.WrapText = False
.Font.Bold = True
End With

die Summe aller Werte > 0 errechnet, und

With Worksheets("ALL-REST")
For Each Zelle In .Range(.Cells(3, 4), .Cells(Rows.Count, 4).End(xlUp))
Set oShape = .Shapes.AddFormControl(xlCheckBox, 0, 0, 0, 0)
With oShape
.Left = Zelle.Left + 0
.Top = Zelle.Top - 3
.Width = 10
.Height = 10
.TextFrame.Characters.Text = ""
With .ControlFormat
.PrintObject = bDrucken
.LinkedCell = "BA" & Zelle.Row
.Value = False
End With
End With
Range("BA" & Zelle.Row) = False
Next Zelle
End With

mir CheckBoxen erstellt wo ich Häckchen setzen kann, die mir dann in Spalte BA entweder False oder True ausspucken.

Das Ziel des Ganzen soll sein, dass alle Werte > 0 und nur diejenigen wo in Spalte BA ein False steht, sprich da wo kein Häckchen gesetzt wurde als Ausschlussmöglichkeit, berechnet werden.

Hat jemand einen Tipp wie ich das als Code realisieren kann.

Also Sumif(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0") UND Spalte gleiche Zelle =False ist?

Für jede Hilfe bin ich dankbar.

Gruß
Chep

:)

 

Hallo!
Warum nicht =SUMMEWENNS() ab 2007.
Oder für ältere Versionen ein =SUMMENPRODUKT()?

Gruß Ralf

 

Und wie müsste das ganze dann aussehen, so?

WorksheetFunction.SumIfs(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0", Range(Cells(3, 53), Cells(3, 53).End(xlDown), "False"))

wobei ich dabei ein Error bekomme *upps

 

Hallo!
Ja, die VBA-Hilfe zu SUMIFS() ist nicht ganz geschickt ...
Die Excel-Hilfe hilft korrekt:

Fällt Dir Dein Fehler auf?

Gruß Ralf

 

Ach so:
Wenn in den Zeilen 1 und 2 Überschriften stehen, kannst Du ganze Spalten in Deinen Bezügen nehmen!

 

Folgendes funktioniert nun für mich:

Sub Summe()
With Range(Cells(3, 21), Cells(3, 21).End(xlDown))
Range("B1").Value = " Total: " & _
WorksheetFunction.SumIfs(.Offset(, 0), .Offset(, 0), ">0", .Offset(, 32), "FALSE")
End With
End Sub

Hab versucht das ganze auch als Zählenwenns umzusetzen jedoch bekomme ich ein Type missmatch?

Sub Anzahl()

With Range(Cells(3, 21), Cells(3, 21).End(xlDown))
Range("C1").Value = " Count: " & _
WorksheetFunction.CountIfs(.Offset(, 0), .Offset(, 0), ">0", .Offset(, 32), "FALSE")
End With
End Sub

Woher kommt der Fehler? Letztendlich funktioniert Sumif und Countif in VBA auf die gleiche Weise.

Gruß

 

*hüstel*

Irgendwie fehlt mir bei COUNTIFS() der Summenbereich ...

Gruß Ralf

 

Das war auf sumif und countif bezogen...

 

... nochmal ach so:
Ich würde mir keinen String in den Ergebniszellen zimmern, sondern ben.def. Zahlenformate verwenden.
"Total: "Standard und "Count: "Standard
Dann kannst Du mit diesen Zahlen weiterrechnen.

Gruß Ralf

 

Hi!

Du verwendest in Deinen Codes aber Sumifs und Countifs *confused*
Und die Argumente Deines Countifs sind def. falsch!

Gruß Ralf

 

Ja das weiß ich jetzt.

Hab jetzt einfach in die betreffende Zelle die Formel hinterlegt, so bleibt der Bereich wenigstens dynamisch, was der andere Code scheinbar nicht macht. So oder so, ich komme zum gewünschten Ziel.

Sub Count()
Range("C1").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIFS(R[2]C[18]:R[1000]C[18],"">0"",R[2]C[50]:R[1000]C[50],""False"")"
End Sub

 

Bitte, gerne geschehen!
Dieses müsste (ungetestet) aber doch auch fkt.?

Gruß Ralf