Habe das Problem gelöst, das er bei leerer Zelle nicht Gelb wird.
Jetzt fehlt nur noch, dass er beim ändern einer Zelle von I6:I10, alle Zellen mit berücksicht in denen schon etwas steht.
Zellen in denen noch nichts steht dürfen nicht berücksicht werden, außer es steht in allen nichts, dann soll er ja gelb sein.
Also wenn z.B. I6 eine 10 enthält und I7 eine 8, muss die Registerkarte weiß sein. Zellen I8-I10 dürfen erst mit berücksichtigt werden, wenn sie einen Wert enthalten.
Weiß nicht ob das möglich ist. Deswegen hatte ich anfangs ja J13 angezielt, da dort immer Prozentual das Ergebnis steht. Ob man es so programmieren kann wie ich oben erklärt habe?
Private Sub Worksheet_Change(ByVal Target As Range)
'Registerkartenfarbe
If Not Intersect(Target, Range("I6:I10")) Is Nothing Then
Select Case Target.Value
Case Is = ""
Me.Tab.Color = vbYellow
Case Is < 10
Me.Tab.Color = vbWhite
Case 10
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
|