Makro: Prüfung auf Zellenfarbe
16.02.2007 12:53:28
aridder
heute ist mein Farbentag :-)
Ich habe folgendes Probelm: mit nachfolgender Formel kann ich die Farbsumme eines Bereiches berechnen:
Function FarbSumme(Bereich As Range)
FarbSumme = 0
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = 36 Then
FarbSumme = FarbSumme + Zelle.Offset(1, 0).Value
End If
Next
End Function
Leider sind meine Kenntnisse in VBA wirklich sehr bescheiden...ich würde gerne diese Formel so verändern, dass ich noch eine 2. Bedingung einbauen kann.
Bsp.: Die farbige Zelle soll innerhalb der Summe nur berücksichtigt werden, wenn vor der Zelle noch "T 550" steht. Welche Syntax muss ich dazu benutzen?
Vielen Dank und noch einen schönen Tag!
Viele Grüße
Andreas