ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest()
Dim zelle As Range
Dim bereich As Range
Dim a As Integer
Set bereich = Tabelle1.Range("a1:a10")
For Each zelle In bereich
If zelle.Font.ColorIndex = 3 Then
a = a + zelle.Value
End If
Next zelle
Tabelle1.Range("b1").Value = a
End Sub
kann mir jemand weiterhelfen ?
Besten Dank !