bedingte formatierung...benötige mehr als drei
03.11.2005 09:32:40
pearser
Folgendes Problem:
Ich habe eine Tabelle in der Werte von 0 - 6 in die Zellen B6 bis AF20 eingetragen werden, sprich 1, 2, 3, usw.
Je nach Wert soll die Zelle in einer anderen Farbe angezeigt werden.
1 = weiss
2= rot
3 = blau
4 = grün
5 = lila
6 = orange
Kann mir da jemand weiterhelfen???
Hab's schon mit dem folgenden Makro probiert, hat aber leider nicht funktioniert.
Fehler: Sobald ich im Visual Basic das Makro starten will, erscheint ein Fenster, und da soll ich ein neues Makro erstellen ???? Das von mir eingegebene erscheint dabei nicht.
Hier noch das Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber As Range
Set ber = Intersect(Target, Range("B6:AF20"))
If Not ber Is Nothing Then
With ber.Interior
Select Case ber(1).Value
Case 1
.ColorIndex = 1
Case 2
.ColorIndex = 2
Case 3
.ColorIndex = 3
Case 4
.ColorIndex = 4
Case 5
.ColorIndex = 5
Case 6
.ColorIndex = 6
Case Else
.ColorIndex = xlColorIndexNone
End Select
End With
End If
End Sub
Bitte hilf mir doch einer. Ich bin schon am verzweifeln. Ist bestimmt easy, aber ich komm nicht drauf.
Gruß
pearser