Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Wenn "fett", dann addieren

Gruppe

Format

Problem

Wie kann ich die Werte aller als "fett" formatierter Zellen eines Bereiches addieren?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

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