Sub Fallzahlen_Waffen()
Dim anz As Long
Dim lastrow As Long
Dim faelle As String
lastrow = Worksheets("Waffen").UsedRange.Rows.Count
faelle = "B2:B" & lastrow
anz = Worksheets("Waffen").Evaluate("=Sum(If(faelle)"""",1/CountIf(faelle,faelle)))")
Worksheets("Bilanz aktuell").Range("C5").Value = anz
End Sub