Bedingte Formatierung im Textfeld

Question

Liebe Supportnet-Community,

folgendes Problem:
ich möchte ein Textfeld ("Einfügen->Textfeld") bedingt formatieren. Wie
bekomme ich das in diesem Beispiel hin? (Wenn Pfeil nach oben =
grün, Pfeil nach unten = rot, Pfeil gerade = grau).

http://www.workupload.com/file/euuEI3Es

Falls ich dazu VBA benötige: bitte auch gleich posten, wie ich das
Textfeld mit dem Makro verknüpfen kann.

Bitte ggf. Dateien wieder auf workupload hochladen, andere Websites
können ggf. blockiert werden.

Besten Dank und viele Grüße
Stinnes

Answer 1

Hi,

mache einen Rechtsklick auf den Tabellenreiter -> Code anzeigen und kopiere folgenden Code in das rechte (obere) Codefenster:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Or Target.Address = "$C$3" Then
With ActiveSheet.Shapes("Textfeld 1").DrawingObject
If Range("B3") < Range("C3") Then
.Font.ColorIndex = 4
ElseIf Range("B3") > Range("C3") Then
.Font.ColorIndex = 3
Else
.Font.ColorIndex = xlAutomatic
End If
End With
End If
End Sub

Sobald die Zahl in B3 oder C3 geändert wird, ändert sich auch die Schriftfarbe im Textfeld entsprechend.

Bis später,
Karin

Answer 2

Klappt perfekt! Vielen Dank!