Ergänzung:

Sub Auswertung()


Application.ScreenUpdating = False

      Dim p As Integer
      Dim st As Integer
      Dim s As Integer
      Dim e As Integer
      Dim w As Integer
      Dim Start As Date
      Dim Ende As Date
      Dim a As Integer
      Dim i As Integer
      Dim v As Integer
      ' Dim b As Integer
      
      
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


Start = InputBox("Bitte Start des Auswertungszeitraumes eingeben im Datumsformat TT.MM.JJJJ:")
 
Ende = InputBox("Bitte Ende des Auswertungszeitraumes eingeben im Datumsformat TT.MM.JJJJ:")

Dim Status
Status = InputBox("Bitte Projektstatus eingeben und auf Groß- und Kleinschreibung achten:")
 
 
a = 0

v = 0

'b = 0


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) = Status Then
   
   v = v + Cells(i, w).Value
   
   a = a + 1
   

' For i = p To Cells(Rows.Count, st).End(xlUp).Row

' If Cells(i, s).Value >= Start And Cells(i, e).Value <= Ende Then

' v = Cells(i, w).Value

' a = a + v

' b = b + 1


End If

Next


Worksheets("Industrie Auswertung").Range("C5").Value = Start

Worksheets("Industrie Auswertung").Range("D5").Value = Ende

Worksheets("Industrie Auswertung").Range("E5").Value = Status

Worksheets("Industrie Auswertung").Range("F5").Value = a

Worksheets("Industrie Auswertung").Range("G5").Value = v


MsgBox "Für den Projektstatus " & Status & " beträgt im gewählten Zeitraum vom " & Start & " bis " & Ende & " die Anzahl Projekte " & a & " und die Anzahl Projekttage " & v & "."


' MsgBox a

' MsgBox b


ThisWorkbook.Worksheets("Industrie Auswertung").Activate

Cells(1, 1).Select


Application.ScreenUpdating = True


End Sub


' ActiveSheet.Range("D3").Select


 '   ActiveCell.FormulaR1C1 = _
  '      "=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[309]C[-3]," & _
   '     "Tab_Industrie[Angebot versendet],R3C2)"
    
    
 'ActiveSheet.Range("E3").Select
    
    
  '   ActiveCell.FormulaR1C1 = _
   '     "=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[310]C[-4]," & _
    '    "Tab_Industrie[Angebot versendet],R3C2)"
        
        
 ' ActiveSheet.Range("F3").Select
        
        
   ' ActiveCell.FormulaR1C1 = _
    '    "=SUMIFS(Tab_Industrie[PT],Tab_Industrie[Status], 'Industrie Auswertung'!R[311]C[-5]," & _
     '   "Tab_Industrie[Angebot versendet],R3C2)"
    
    
' ActiveSheet.Range("D3:F3").Value = ActiveSheet.Range("D3:F3").Value
    
    
  '  Cells(1, 1).Select
    
    
  ' Application.ScreenUpdating = True
    

' End Sub