hier ein paar Funktionen.
Code:
'
' Summe bei gleichen Schriftfarben im angegebenen Bereich der Formel
' Schriftfarben, wie in der Formelzelle vorgegeben, die Formel prüft keine Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
' *** hddiesel *** Stand: August 2022
'
Public Function Summe_SuchBereich_FontFarbe(RngBereich As Range, FontSuchFarbe As Range) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Font.ColorIndex = FontSuchFarbe.Font.ColorIndex And IsNumeric(Zelle.Value) Then
Summe_SuchBereich_FontFarbe = Summe_SuchBereich_FontFarbe + Zelle.Value
End If
Next
End Function
'
' Summe bei gleichen Zellhintergrundfarben im angegebenen Bereich der Formel
' Zellhintergrundfarben, wie in der Formelzelle vorgegeben, die Formel prüft keine Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
Public Function Summe_SuchBereich_ZellFarbe(RngBereich As Range, ZellSuchFarbe As Range) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Interior.ColorIndex = ZellSuchFarbe.Interior.ColorIndex And IsNumeric(Zelle.Value) Then
Summe_SuchBereich_ZellFarbe = Summe_SuchBereich_ZellFarbe + Zelle.Value
End If
Next
End Function
'
' Anzahl bei gleichen Schriftfarben im angegebenen Bereich der Formel
' Schriftfarben, wie in der Formelzelle vorgegeben, die Formel prüft keine Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
Public Function Anzahl_SuchBereich_FontFarbe(RngBereich As Range, FontSuchFarbe As Range) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Font.ColorIndex = FontSuchFarbe.Font.ColorIndex Then
Anzahl_SuchBereich_FontFarbe = Anzahl_SuchBereich_FontFarbe + 1
End If
Next
End Function
'
' Anzahl bei gleichen Zellhintergrundfarben im angegebenen Bereich der Formel
' Zellhintergrundfarben, wie in der Formelzelle vorgegeben, die Formel prüft keine Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
Public Function Anzahl_SuchBereich_ZellFarbe(RngBereich As Range, ZellSuchFarbe As Range) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Interior.ColorIndex = ZellSuchFarbe.Interior.ColorIndex Then
Anzahl_SuchBereich_ZellFarbe = Anzahl_SuchBereich_ZellFarbe + 1
End If
Next
End Function
'
' Summe bei gleichen Schriftfarben im angegebenen Bereich der Formel
' Schriftfarben, wie in der Formelzelle vorgegeben, die Formel prüft auch die angegebenen Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
Public Function Summe_SuchBereich_FontFarbe_ZellWert(RngBereich As Range, FontSuchFarbe As Range, ZellSuchWert As Variant) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Font.ColorIndex = FontSuchFarbe.Font.ColorIndex And IsNumeric(Zelle.Value) And Zelle.Value = ZellSuchWert Then
Summe_SuchBereich_FontFarbe_ZellWert = Summe_SuchBereich_FontFarbe_ZellWert + Zelle.Value
End If
Next
End Function
'
' Summe bei gleichen Zellhintergrundfarben im angegebenen Bereich der Formel
' Zellhintergrundfarben, wie in der Formelzelle vorgegeben, die Formel prüft auch die angegebenen Zellwerte
' Nach ändern der Zellfarbe mit F9 Summe neu Berechnen
'
Public Function Summe_SuchBereich_ZellFarbe_ZellWert(RngBereich As Range, ZellSuchFarbe As Range, ZellSuchWert As Variant) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Interior.ColorIndex = ZellSuchFarbe.Interior.ColorIndex And IsNumeric(Zelle.Value) And Zelle.Value = ZellSuchWert Then
Summe_SuchBereich_ZellFarbe_ZellWert = Summe_SuchBereich_ZellFarbe_ZellWert + Zelle.Value
End If
Next
End Function
'
' Anzahl der gleichen Schriftfarben im angegebenen Bereich der Formel
' Schriftfarben, wie in der Formelzelle vorgegeben, die Formel prüft auch die angegebenen Zellwerte
' Nach ändern der Schriftfarbe mit F9 Summe neu Berechnen
'
Public Function Anzahl_SuchBereich_FontFarbe_ZellWert(RngBereich As Range, FontSuchFarbe As Range, ZellSuchWert As Variant) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Font.ColorIndex = FontSuchFarbe.Font.ColorIndex And Zelle.Value = ZellSuchWert Then
Anzahl_SuchBereich_FontFarbe_ZellWert = Anzahl_SuchBereich_FontFarbe_ZellWert + 1
End If
Next
End Function
'
' Anzahl der gleichen Zellhintergrundfarben im angegebenen Bereich der Formel
' Zellhintergrundfarbe, wie in der Formelzelle vorgegeben, die Formel prüft auch die angegebenen Zellwerte
' Nach ändern der Zellfarbe mit F9 Summe neu Berechnen
'
Public Function Anzahl_SuchBereich_ZellFarbe_ZellWert(RngBereich As Range, ZellSuchFarbe As Range, ZellSuchWert As Variant) As Double
Dim Zelle As Range
Application.Volatile
For Each Zelle In RngBereich
If Zelle.Interior.ColorIndex = ZellSuchFarbe.Interior.ColorIndex And Zelle.Value = ZellSuchWert Then
Anzahl_SuchBereich_ZellFarbe_ZellWert = Anzahl_SuchBereich_ZellFarbe_ZellWert + 1
End If
Next
End Function