Thema: Wenn fett, dann addieren

StandardModule: basMain

Function BoldAddieren(rngAll As Range) As Double
   Dim rng As Range
   Dim dValue As Double
   Application.Volatile
   For Each rng In rngAll.Cells
      If rng.Font.Bold And IsNumeric(rng.Value) Then
         dValue = dValue + rng.Value
      End If
   Next rng
   BoldAddieren = dValue
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und Format