Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Summe aller kursiv geschriebenen Werte ermitteln
Gruppe
Format
Problem
Wie kann ich die Summe aller Werte eines vorgegebenen Bereiches ermitteln, deren Schriftart auf kursiv gesetzt ist?
Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.
StandardModule: basMain Function SumItalic(rng As Range) As Double Dim rngAct As Range Dim dAdd As Double For Each rngAct In rng.Cells If IsNumeric(rngAct) Then If rngAct.Font.Italic = True Then dAdd = dAdd + rngAct.Value End If End If Next rngAct SumItalic = dAdd End Function