VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wenn fett, dann addieren

Gruppe

UDF

Bereich

Format

Thema

Wenn fett, dann addieren

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

    


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