Guten Tag,
ich würde gerne folgendes Makro in Excel 07 schreiben:
Wenn 10 Zellen rot sind, dann sollen diese Zellen bei der Summe ignoriert werden! Die Alternative, die Zellen einfach auszublenden, finde ich nicht so gut!
Geht sowas?
Vielen Dank für eure Antwort!
Viele Grüße
Franziska
ich würde gerne folgendes Makro in Excel 07 schreiben:
Wenn 10 Zellen rot sind, dann sollen diese Zellen bei der
Summe ignoriert werden! Die Alternative, die Zellen einfach
auszublenden, finde ich nicht so gut!
Hallo Franziska
In Excel 2003 wäre so ein Makro folgendes:
Sub UnRoteSumme()
Dim FarbSum
Dim Zelle As Range
On Error GoTo finis
FarbSum = 0
For Each Zelle In ActiveSheet.Range("a1:a10")
If Zelle.Interior.ColorIndex = 3 Then
FarbSum = FarbSum + 0
Else: FarbSum = FarbSum + Zelle
End If
Next Zelle
ActiveCell.Formula = FarbSum
finis:
End Sub
Das Resultat wird in der aktivierten Zelle ausgegeben. Falls die nicht leer wäre, wird der Inhalt überschrieben!!
Du müsstest Range(„a1:a10“) anpassen. Wenn in diesem Bereich eine Zelle Text enthält, bricht das Makro ab.
Und es geht hier um Zellen, deren Füllfarbe rot ist. Es ist nicht die Schriftfarbe gemeint.
Grüsse Niclaus
Hallo Franziska,
Wenn 10 Zellen rot sind, dann sollen diese Zellen bei der
Summe ignoriert werden!
was soll bei 8 oder 12 roten Zellen geschehen?
Gruß
Reinhard