Die 4 Funktionen. Der Code muss in ein allgemeines Modul.
Anzahl fett formatierter Zellen
Public Function anzahlfett(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.Bold = True Then
anzahlfett = anzahlfett + 1
End If
Next
End Function
Summe fett formatierter Zellen
Public Function summefett(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.Bold = True Then
summefett = summefett + Zelle.Value
End If
Next
End Function
Anzahl rot formatierter Zellen, wobei die 3 im Code für die Farbe rot steht.
Public Function anzahlrot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
anzahlrot = anzahlrot + 1
End If
Next
End Function
Summe rot formatierter Zellen
Public Function summerot(ByVal Bereich As Range) As Long
Application.Volatile
Dim Zelle As Range
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
summerot = summerot + Zelle.Value
End If
Next
End Function