Dim addRow As Long
    Dim lastRow As String
    Dim startRow As Integer
 
            For i = 1 To .Worksheets.count
 
                .Worksheets(i).Activate
                addRow = .Worksheets(i).UsedRange.Rows.count
                lastRow = "C" & CStr(addRow)
                startRow = -(addRow + 5)
 
                .Worksheets(i).Cells((addRow + 6), 1).FormulaR1C1 = "=COUNTIF(" & _
                  "R[startRow]C[2]:R[-6]C[2],1)"   'Fehler!
 
'oder:
                .Worksheets(i).Cells((addRow + 6), 1).FormulaR1C1 = "=COUNTIF(" & _
                  "R[-7]C[2]:R[-6]C[2],1)"      'funktioniert, nicht möglich, 
                ' da Anzahl der Zeilen variiert
 
'oder:
                .Worksheets(i).Cells((addRow + 6), 1).Formula = "=COUNTIF(" & _
                  "C1:lastRow,0)"  'Fehler erst bei der Anzeige in Excel, da 
                ' lastRow in Excel nicht als Zellenbezeichnung erkannt wird
 
'oder:
                .Worksheets(i).Cells((addRow + 6), 1).Formula = "=COUNTIF(" & _
                  "C1:C10,0)"
                  'funktioniert, aber Problem siehe oben
 
            Next i