Bedingte Formatierung
26.09.2016 14:18:49
Michael
ich habe zwei Tabellen auf unterschiedlichen Sheets.
Sheet Events! enthält Wochennummern, jeweils von C2:C6
Sheet Pivot enthält eine Pivot wo von F4 bis BG4 Wochennummern hinterlegt sind.
Die bedingte Formatierung die ich suche soll in der Pivot die Zellen einfärben, wenn die Zahl darin mit einer Zahl aus dem Sheet Events übereinstimmt.
Ich habe es bereits mit =Vergleich(F4;Events!C2:C6;0) probiert, aber es klappt nicht.
Alternativ ginge es auch über VBA?
Hab hier :
Sub Formatieren()
Dim count As Integer, z, lz, Serie
lz = Worksheets("Serien").Cells(Rows.count, 11).End(xlUp).Row
count = 0
Serie = Cells(6, 3)
For z = lz To 1 Step -1
If Cells(z, 11) = 1 Then
count = count + 1
Else
count = 0
End If
If count = Serie Then
Cells(z, 11).Interior.ColorIndex = 6
Cells(z + Serie - 1, 11).Interior.ColorIndex = 6
count = 0
End If
Next z
End Sub
Bitte um hilfe,
Gruß,
Michael