SumIfs in VBA
09.09.2015 07:42:27
Bonduca
Ich möchte die Summe bilden, wenn mehrere Kriterien (Arg 3 und Arg 5) erfüllt sind.
Wenn die gleiche Zahl wie Arg3 in dem Bereich Arg2 gefunden wird und zugleich der Wert in Arg5 im Bereich Arg4 gefunden wird, dann soll die Summe des Bereichs Arg1 gebildet werden.
SumIfs (oder Summewenns) wird folgendermaßen auf der Office Seite erklärt:
Summewenns(Summenbereich, Kriterienbereich1, Kriterium1, Kriteriumbereich2, Kriterium2)
Leider habe ich irgendeinen Fehler in meinen Code
Set ws1 = Worksheets("Tabelle2")
Set ws2 = Worksheets("Tabelle1")
For i = 3 To 20000
varResult = Application.WorksheetFunction.SumIfs( _
Arg1:=ws1.Range(ws1.Cells(4, 8), ws1.Cells(50000, 8)), _
Arg2:=ws1.Range(ws1.Cells(4, 9), ws1.Cells(50000, 9)), _
Arg3:=ws2.Cells(i, 9), _
Arg4:=ws1.Range(ws1.Cells(4, 1), ws1.Cells(50000, 1)), _
Arg5:=ws2.Cells(i, 2)))
Next i
Kann jemand anhand des Codes sehen woran es liegen könnte?
Ich bekomme einen Syntaxfehler :(