zellfarbzuordnung über eingabe von buchstaben
11.08.2002 01:19:13
andreas
habe im forum nachstehendes makro, für die zuordnung von verschiedenen zellfarben je nach eingabe, gefunden. leider funktioniert es über die eingabe von zahlen. ich habe versucht, es so abzuändern, damit die farbzuteilung auch über buchstaben funktioniert. bekomme es aber nicht hin. kann mit jemand helfen, oder einen tip geben.
besten dank gruss andreas
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If IsNumeric(Target.Value) = False Then Exit Sub
Select Case Target.Value 'Wert der Zelle
Case ""
Target.Interior.ColorIndex = 0
Case 1
Target.Interior.ColorIndex = 3
Case 2
Target.Interior.ColorIndex = 6
Case 3
Target.Interior.ColorIndex = 8
Case 4
Target.Interior.ColorIndex = 7
Case 5
Target.Interior.ColorIndex = 14
End Select
End Sub
Anzeige