Office: Wie Funktioniert "SUMMEWENN" im Bezug auf Formatie

Hallo Zusammen,

ich möchte eine Summe aus einer Range bilden. Hierbei sollen
die kursiv geschriebenen Werte nicht in die Addition mit einbezogen werden.

Ich habe eine kleine Beispieldatei angehängt. Weiß jemand, wie
ich z.B.: mit SUMMEWENN das realisieren kann?

oder gibt es hierfür eine einfache Lösung in VBA?

Viele Grüße


Martin

 

Hallo!

Das geht nur mit VBA:
Kopiere diesen Code in ein allgemeines Modul:

Code:

Function KSumme(Bereich As Range)
Dim Zelle As Range
Application.Volatile
KSumme = 0
For Each Zelle In Bereich
If Zelle.Font.Italic = False Then
KSumme = KSumme + Zelle
End If
Next
End Function

Nun kannst du in dieser Mappe die neue Funktion KSumme anwenden:

=KSumme(B3:B16)

summiert alle nicht-kursiven Werte.

Die Funktion wird allerdings erst bei einer Neuberechnung der Tabelle aktualisiert. Ich erwähne das, weil eine Formatsänderung noch keine Neuberechnung hervorruft. Durch drücken von F9 kannst du eine Neuberechnung erzwingen.