Zellen einfärben
05.01.2003 17:07:37
Uve
Kann mir jemand sagen, warum folgendes Makro bei mir nicht klappt:
Sub NamenFarbe()
Dim i As Range
For Each i In Selection
Select Case i
Case i.Value = "A.Bergmann"
i.Interior.ColorIndex = 3
Case i.Value = "M.Weiss"
i.Interior.ColorIndex = 7
.
.
bis 9 Cases
End Select
Next i
End Sub
Im ausgewählten Bereich stehen überall Formeln. Die Namen sind also nicht manuell eingetragen.
Danke im voraus ..
Gruß Uve
Anzeige