Function ZähleDaten(Status As String, Monat As Byte, Jahr As Integer, user As String)
Application.Volatile
Dim BereichPunkt As String, BereichStatus As String, BereichMonat As String, BereichUser As String
Dim lzei As Long, uzei As Long, s As Long, i As Long, cnt As Long
BereichPunkt = "A:A": BereichStatus = "R:R": BereichMonat = "K:K": BereichUser = "B:B"
For s = 1 To Sheets.Count - 1
With Sheets(s)
lzei = 2
uzei = .Range(BereichPunkt).Cells(Rows.Count).End(xlUp).Row
For i = lzei To uzei
If Left(user, 2) = "<>" Then
If .Range(BereichStatus).Cells(i) = Status _
And Month(.Range(BereichMonat).Cells(i)) = Monat _
And Year(.Range(BereichMonat).Cells(i)) = Jahr _
And .Range(BereichUser).Cells(i) <> Right(user, Len(user) - 2) Then cnt = cnt + 1
Else
If .Range(BereichStatus).Cells(i) = Status _
And Month(.Range(BereichMonat).Cells(i)) = Monat _
And Year(.Range(BereichMonat).Cells(i)) = Jahr _
And .Range(BereichUser).Cells(i) = user Then cnt = cnt + 1
End If
Next i
End With
Next s
ZähleDaten = cnt
End Function