Zelle färben nach Textinhalt
04.07.2003 23:32:36
Michael_E
möchte beim Ausdruck von Arbeitsblätter eine Zelle Je nach Text färben.
Was ist an diesen Code falsch .
In einen ähnlichen Fall funktioniert er.
kann mir einer einen Tip geben???
~beginn~
Sub FarbeName()
Dim farb As String
Dim rng as Range
farb = rng.Offset(0, 3).Value
Select Case farb
Case "Sch": rng.Offset(0, 3).Interior.ColorIndex = 37
Case "Ru":rng.Offset(0, 3). Interior.ColorIndex = 40
Case "Pa":rng.Offset(0, 3). Interior.ColorIndex = 35
Case "WS": rng.Offset(0, 3).Interior.ColorIndex = 15
Case "Fa. RT": rng.Offset(0, 3).Interior.ColorIndex = 36
Case "Fa. TKH":rng.Offset(0, 3). Interior.ColorIndex = 10
Case "Fa. TKH_H": rng.Offset(0, 3).Interior.ColorIndex = 50
Case "wichtig ! S":rng.Offset(0, 3).Interior.ColorIndex = 3
Case "wichtig ! R": rng.Offset(0, 3).rng.Offset(0, 3).Interior.ColorIndex = 3
Case "wichtig ! P": rng.Offset(0, 3).rng.Offset(0, 3).Interior.ColorIndex = 3
Case "": Worksheets(ActiveSheet.Name).Select
End Select
End Sub
~end~
Danke im vorraus für eure Mühe
gruß Michael