Wie ändere ich die Farbe der Blattregisterkarte basierend auf mehrere Zellenwerte?
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
Microsoft Excel