Function Zählen_Status_aktiv(rng As Range) As Long
Dim i As Long
Dim zelle As Range
i = 0
Application.Volatile
For Each zelle In rng
If zelle.Value = "aktiv" And _
zelle.Offset(0, -1).Font.Bold = True Then
i = i + 1
End If
Next zelle
Zählen_Status_aktiv = i
End Function
In Deinem Beispiel zählst Du so mit einer Schleife die Zellen,
welche aktiv haben und gleichzeitig daneben fett geschriebe sind.
Alles in einem Zähler aufaddiert und der Function zugewiesen.
Für die pendenten etc. einfach abändern.
Das Application.volatile bewirkt, dass die Formel in der Zelle aktualisiert wird.
In Deinem Sheet dann in der gewünschten Zelle mit dem Formeleditor => Benutzerdefiniert=> Deine Function eingeben und im Assistentenfenster den Bereich anzeigen, in dem Du zählen willst.
Gruss und viel Spass
Wilhelm
Gruss,
Martin