Office: farbe einer userform-textbox wertabhängig ändern

Wiedermal hallo,

wie kann ich bei einer Textbox , abhängig von einem Zellenwert die Farbe ändern und den Zellenwert zurückgeben ?

MfG B0ldi

:)

 

Hi,

ich weiß zwar nicht genau, ob du sowas meinst - aber der Code öffnet dir, wenn du in A1 einen Wert eingibst, ein UserForm mit einem Textfeld, das den eingegebenen Wert enthält und dessen farbe vom Wert abhängt.

Code:

HTH, JBond

 

Hi!

Den Zellwert-Bezug stellst Du ja einfach über die Eigenschaften der TextBox her. Werte-basiert Farbe ändern ist schon schwieriger.
Vorausgesetzt die verknüpfte Zelle hat die gleiche Farbe, die die Textbox auch haben soll, könntest Du einfach beides im Code der Textbox miteinander verknüpfen:

private sub TextBox1_Change()
TextBox1.BackColor = Tabelle1.Cells(x, y).InteriorColor
End Sub

Oder über eine ganz einfach IF-Abfrage im code:

private sub TextBox1_Change()
if TextBox1.Value = ... then
TextBox1.BackColor = RGB(...,...,...)
End if
End Sub

So, Du hast jetzt nach 7 Jahren endlich ne Antwort u ich meinen ersten Beitrag hier ;-)