ich möchte eine SUMMEWENN-Funktion mit mehreren Bedingungen, die ich im normalen Excel schon realisiert habe, nun in VBA umsetzen. Ich weiß man könnte einfach die Zellen runterziehen, aber ich benötige es in VBA:
In Schleife i in wsS
und in Schleife n in wsE
Bed.1: wsS.cells(i,3).value=wsE.cells(n,3).value
Bed.2: wsS.cells(i,4).value=wsE.cells(n,4).value
Bed.3: wsE.cells(n,7).value= "U"
Dann Addiere wsE.cells(n,10).value zu dem bestehenden Wert in wsS.cells(i,13).value
Nächster Eintrag in wsE
'=SUMMEWENNS(E!J:J;E!C:C;S!C3;E!D:D;S!D3;E!G:G;"U")
ich blicke da nicht zu 100% in der SUMIF-Syntax durch. Über Hilfe würde ich mich extrem freuen.
Sub SummeU()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Dim wsS As Worksheet, wsE As Worksheet
Dim i As Integer, n As Integer
Set wsS = ThisWorkbook.Worksheets("S")
Set wsE = ThisWorkbook.Worksheets("E")
n = 3
i = 3
While wsS.Cells(i, 3).Value ""
wsS.Cells(i, 13).Value = Application.WorksheetFunction.SumIfs(wsE.Cells(i, 10). _
Value, wsE.Cells(i, 3).Value, wsS.Cells(n, 3), wsE.Cells(i, 4), wsS.Cells(n, 4), wsE.Cells(i, 7), "U")
Wend
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
Application.EnableEvents = True
End Sub