Ändern der Textfeldfarbe

Question

In Excel habe ich ein Textfeld mit einer Zelle verknüpft. Die Schriftfarbe ändert sich basierend auf dem Zellenwert. Leider ändert sich die Schriftfarbe der Textfläche nicht, wenn die verknüpfte Zelle geändert wird. Wenn ich den Textbereich öffne und Enter drücke, ändert sich die Farbe.

Gibt es eine Möglichkeit, das zu automatisieren, weil es viel zu viel Arbeit ist, jeden einzelnen Textarea zu drücken und Enter zu drücken.

Answer 1

Angenommen, ich habe die Zelle A1 mit einem ActiveX-Textfeld auf demselben Blatt verbunden.

Ich möchte die Textbox Forecolor rot, wenn Zelle A1 = 1, sonst blau für alles andere.

In der Textbox Code:

Private Sub TextBox1_Change() 
    If Range("A1") = 1 Then 
     Me.TextBox1.ForeColor = vbRed 
    Else 
     Me.TextBox1.ForeColor = vbBlue 
    End If 
End Sub