hier mal eine idee. ungetestet
Beginn = InputBox("Beginn Auswertungszeitraum")
Ende = InputBox("Ende Auswertungszeitraum")
Dim status
status = InputBox("Status")
a = 0
For i = p To Cells(Rows.Count, st).End(xlUp).Row
If Cells(i, s) >= Beginn And Cells(i, e) <= Ende And Cells(i, st) = status Then
v = v + Cells(i, w).Value
a = a + 1
End If
Next
Range("A" & p + 2).Value = v
Range("B" & p + 2).Value = a
Range("C" & p + 2).Value = status