ist es möglich, abhängig von einem Eintrag in einer Zelle, die Registerfarbe des Tabellenblatts zu ändern?
z.B.: Steht in Zelle A5 ein "OK" drin wird die Registerfarbe des Tabellenblatts grün.
Vielen Dank für jede Hilfe!
Grüße
Pascal
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then If Target.Text = "OK" Then Me.Tab.Color = vbGreen
End Sub
Gruß
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
If Target.Text = "OK" Then
Me.Tab.Color = vbGreen
Else
Me.Tab.Color = False
End If
End If
End Sub
VG, Boris
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then Me.Tab.Color = Abs(vbGreen * (Target.Text = "OK"))
End Sub
Gruß Gerd