Du programmierst wohl noch nicht so lange.
Sub Auswertung()
Dim arr, i, ii, v(3), a(3)
arr = Array("Abgeschlossen", "Laufend", "Angebot", "Abgelehnt")
p = 4 'Erste Zeilenummer der Werte
st = 1 'Spaltennummer Status
s = 9 'Spaltennummer Projektstart
e = 11 'Spaltennummer Projektende
w = 3 'Spaltennummer Personentage
ThisWorkbook.Worksheets("Industrie").Activate
With Worksheets("Industrie Auswertung")
Start = .Range("C5").Value
Ende = .Range("D5").Value
For ii = 0 To 3
For i = p To Cells(Rows.Count, st).End(xlUp).Row
If Cells(i, s) >= Start And Cells(i, e) <= Ende And Cells(i, st) = arr(ii) Then
v(ii) = v(ii) + Cells(i, w).Value
a(ii) = a(ii) + 1
End If
Next i
Next ii
For i = 0 To 3
.Cells(5 + i + 5) = arr(i)
.Cells(5 + i, 6) = a(i)
.Cells(5 + i, 7) = v(i)
Next i
.Activate
.Cells(1, 1).Select
End With
End Sub
|