Exel Formel in VBA

Computer: Software & Programmierung Visual Basic
#1

Hallo, ich komme nicht weiter, ich benötige die unten aufgeführte Exel - Formel in VBA.
=SUMMEWENNS($D$2:$D$40;$B$2:$B$40;$G2;$C$2:$C$40;">0")
Danke für die Unterstützung
Bernhard

#3 
=WorksheetFunction.SumIfs(Range("$D$2:$D$40"), Range("$B$2:$B$40"), Range("$G2"), Range("$C$2:$C$40"),">0")
#4

Jamiro danke
Bernhard