Tipps & Tricks 01.08.2003, 16:30 Uhr

Summe aller roten oder fetten Zahlen - Excel

Gibt es in Excel eine Funktion, welche in einer Spalte nur aus solchen Zellinhalten eine Summe bildet, die z.B. in «rot» oder «fett» etc. geschrieben sind?
Nein, eine Funktion kann leider nicht direkt auf Formate zugreifen. Einige Formate können mit Hilfe der Funktion ZELLE zwar ausgelesen werden. Die von Ihnen gesuchten Formate sind jedoch leider nicht dabei. Sie können Formate jedoch über ein Makro eruieren.
Das folgende Makro zählt alle rot geschriebenen und alle fetten Zahlen im Bereich A1 bis C20 separat zusammen und schreibt die Ergebnisse in die Zellen F1 und F2.
---------------------------------------------
MAKRO ZUM KOPIEREN:
---------------------------------------------
Sub SummeRotOderFett()
Dim Zelle As Object
Dim rot%, fett%, nrot%, nfett%
'Bereich hier eintragen
[A1:C20].Select
rot = 0: fett = 0
For Each Zelle In Selection
If Zelle.Font.ColorIndex = 3 Then nrot = Zelle.Value
rot = rot + nrot
nrot = 0
If Zelle.Font.Bold Then nfett = Zelle.Value
fett = fett + nfett
nfett = 0
Next
[F1].Select
ActiveCell.Value = rot
[f2].Select
ActiveCell.Value = fett
End Sub
---------------------------------------------


Kommentare

Es sind keine Kommentare vorhanden.