Summewenn / SumIf
21.06.2004 15:50:11
Dominic
Leider hab' ich ein Problem mit SumIf. Kann mir jemand helfen?
Ich habe eine Tabelle "(Range(Cells(3, 1), Cells(c, 2))" wo in Spalte 1 Bezeichnungen angegeben wurden, und in Spalte 2 die dazugehörigen Werte. Nun möchte ich alle Bezeichnungen unterhalb der Tabelle auflisten und die entsprechenden Werte zusammenaddieren. Die Auflistung klappt, aber da ist ein Fehler '1004' bei SumIf auf.
e = c + 1
With ActiveSheet
For b = 3 To c - 1
If .Cells(b, 1).Value .Cells(b - 1, 1).Value Then
.Cells(e, 1).Value = .Cells(b, 1).Value
.Cells(e, 2).Value = Application.WorksheetFunction.SumIf(Range _
(.Cells(3, 1), .Cells(c, 2)), .Cells(e, 1), Range _
(.Cells(3, 2), .Cells(c, 2)))
e = e + 1
End If
Next
End With
Leider habe ich im Archiev nichts gefunden!
Vielen Dank!
Dominic