ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsächlich den Wert in die Zelle eintippe und Enter drücke. Gibt's auch eine Möglichkeit, dass er die Werte erkennt, die per Formel erzeugt werden?
Private Sub Worksheet_Change(ByVal Target As Range) Const bunt As Long = 1 Const unbunt As Long = 0 If Target.Cells.Count > 1 Then Exit Sub Set Bereich = Range("S2:AD1000") If Intersect(Target, Bereich) Is Nothing Then Exit Sub Select Case Target.Value Case bunt Range(Cells(Target.Row, Target.Column - 14), Cells(Target.Row, Target.Column - 14)). _ Interior.ColorIndex = 33 Case unbunt Range(Cells(Target.Row, Target.Column - 14), Cells(Target.Row, Target.Column - 14)). _ Interior.ColorIndex = 2 End Select End Sub
Private Sub CommandButton1_Click()
'Application.Goto Reference:=""
Application.VBE.MainWindow.Visible = True
End Sub
FormulaLocal