Das habe ich im Netz gefunden, aber ich brauche die Abfrage für mehrere Zellen (A1:A10)

Kann mir da jemand helfen ??

Gruß Heiko



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Address = "$A$1" Then
        Select Case Target.Value
        Case "False"
            Me.Tab.Color = vbRed
        Case "True"
            Me.Tab.Color = vbGreen
        Case Else
            Me.Tab.Color = vbBlue
        End Select
    End If
End Sub