ich wende mich an euch, weil ich nicht weiterkomme.
Ehrlicherweise muss ich noch erwähnen, dass ich von VBA keine Ahnung habe.
Den hier aufgeführten Code habe ich per Macrorecorder und Internetsuche zusammengebastelt.
Ich habe in einem Arbeitsblatt eine Form, bezeichnet mit "Oval 29". Diese Form wechselt in Abhängigkeit des Wertes in einem Feld (AD42) die Farbe.
Ich möchte zusätzlich zum Farbwechsel das integrierte Textfeld ändern.
Form = grün, Buchstabe G
Form = gelb, Buchstabe Y
Form = rot, Buchstabe R
Hier noch ein Auszug des verwendeten Codes:
Dim K As Shape
Set K = Me.Shapes("Oval 29")
K.Fill.Visible = msoTrue
K.Line.Visible = msoFalse
If [ad42] >= 98 Then
K.Fill.ForeColor.RGB = RGB(0, 176, 80)
ElseIf [ad42] < 98 And [ad42] >= 80 Then
K.Fill.ForeColor.RGB = RGB(255, 192, 0)
Else
K.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
Vielen Dank und viele Grüße
Michel