|
Hi, ob es mit einem MacExcel funktioniert weiß ich nicht, aber hier mal meine Idee wie man das angehen könnte.
Füge deiner Datei ein allgemeines Modul hinzu (z.B. Modul1). und gib dort diesen Code ein:
Function ZähleDaten(Status As String, Monat As Byte, 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 .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 .Range(BereichUser).Cells(i) = user Then cnt = cnt + 1
End If
Next i
End With
Next s
ZähleDaten = cnt
End Function
Nun brauchst du an beliebiger Stelle nur noch die Formel: =zähledaten("Note 3 FG";MONAT(HEUTE());"VM") bzw. =zähledaten("Note 3 FG";MONAT(HEUTE());"<>VM") einzugeben um das Ergebnis zu erzielen.
Der Code funktioniert auch mit jedem anderen User, Status oder Monat. Probier z.B. auch die Formel =zähledaten("Note 1";3;"<>") um sämtliche User mit Note 1 im Monat März zu finden.
Gruß Mr. K.
|