kann ich eine Wenn-Funktion bilden, die nur die Zahlen zusammenzählt, die fett gedruckt sind? Ich hoffe mir kann jemand helfen. Vielen Dank.
Function SummeFett(rng As Range)
Dim c As Range
Application.Volatile
For Each c In rng.Cells
If IsNumeric(c.Value) And c.Font.Bold = True Then SummeFett = SummeFett + c.Value
Next c
End Function
Function SummeNichtFett(rng As Range)
Dim c As Range
Application.Volatile
For Each c In rng.Cells
If IsNumeric(c.Value) And c.Font.Bold = False Then SummeNichtFett = SummeNichtFett + c.Value
Next c
End Function