Mit folgendem Code kann ich Werte in Zellen addieren, wenn in Spalte A der gesuchte Code zutrifft.
For Start = 6 To lastRow
Code = Worksheets("Report").Cells(Start, "A")
Wert = Application.WorksheetFunction.SumIf(Sheets("Daten").Range("A2:A" & lastRow1), Code, Sheets("Daten").Range("AD2:AD" & lastRow1))
Worksheets("Report").Cells(Start, "CD") = Wert
Next
Wie kann ich diesen Code auf zwei Bedingungen erweitern, dh., in Spalte BJ muss zB. die Bedingung "7" erfüllt sein.
Vielen Dank und Gruss
Gregor