VBA Bereich zählen, Bed. in Farbe & Textbezug
17.08.2013 16:33:00
MathiasW.
ich habe eine Tabelle diese ist im
Bereich L4:Y10 (es bezieht sich alles auf diesen Bereich)
in jeder 2. Spalte (L, N, P, R, T, V, X) sind Zellen zum Teil gelb markiert
in den anderen Spalten (M, O, Q, S, U, W, Y) steht zum Teil ein "x"
Ich möchte gern einen Zähler dazu addieren, wenn in Spalte L eine Zelle gelb markiert ist und in der rechts da neben liegenden Zelle ein "x" steht
(2 zusammen liegende Spalten sind so zu sagen ein Paar z.B. L+M, N+O, P+Q usw.)
Ich habe folgendes gefunden,
in einem Modul steht
Function WksWert(Zellen As Range, FarbIndex As Long) As Long
Dim Zelle As Range
WksWert = 0
For Each Zelle In Zellen
If Cells(Zelle.Row, Zelle.Column).Interior.ColorIndex = FarbIndex Then
WksWert = WksWert + 1
End If
Next Zelle
End Function
=WksWert(L4:L10;6) (6=der Farbindex gelb)
damit werden schon mal alle gelben Zellen gezählt, fehlt quasi die Bedingung, dass das nur geschieht, wenn rechts neben dieser Zelle ein x steht
läßt sich das irgendwie umbauen?
schönen Gruß
Mathias