1) Damit du nicht dich dauernd wiederholst, schreibe elemente (wie z.B. "Worksheets("Pivot_Planogramm").Range("BF6")") in eine variable.
z.B. xyz= Worksheets("Pivot_Planogramm").Range("BF6"):
dann brauchst du nur noch zu schreiben: IF xyz >= usw.
2) Arbeite besser mit ZS-Format statt mit den blöden Buchstaben (die solen nur Excel "putzfrauensicher" machen), dann kannst du viel besser sehen, was du da machst.
3) Statt range() würde ich cells(z,s) nehmen
z.B.: ElseIf xyz >= .cells(32,4) And xyz <= .cells(32,5) Then .Shapes("Form 1b").Fill.ForeColor.RGB = cells(32,5).Interior.Color
man könnte statt all deinem code von oben auch schreiben:
xyz=Worksheets("Pivot_Planogramm").cells(6,58)
for z=31 to 35
If xyz >= .cells(z,4) And xyz <= .cells(z,5) Then .Shapes("Form 1b").Fill.ForeColor.RGB = cells(z,5).Interior.Color
next z
|