Thema Datum  Von Nutzer Rating
Antwort
26.07.2018 09:45:32 Martin
NotSolved
Blau Form (z.b. ein gezeichnetes rechteck) färben, abhängig von Zellwert
 26.07.2018 10:04:32 Ulrich
Solved
26.07.2018 12:44:44 Gast46979
Solved

Ansicht des Beitrags:
Von:
Ulrich		 Datum:
26.07.2018 10:04:32		 Views:
1058		 Rating:
     
Antwort:
 Nein
Thema:
Form (z.b. ein gezeichnetes rechteck) färben, abhängig von Zellwert

Hallo,

dieser Code läuft bei mir unter Excel2007. Ich weiß nicht, ob sich das Objektmodell nicht über die Versionen geändert hat, aber du kannst es ja einfach mal ausprobieren:

Sub test()
Dim sh As Shape, myColor As Long
If Range("A1") > 0 Then
    myColor = vbGreen
ElseIf Range("A1") = 0 Then
    myColor = vbBlue
Else
    myColor = vbRed
End If

Set sh = ActiveSheet.Shapes(1) 'Das muss natürlich angepasst werden!
sh.Fill.ForeColor.RGB = myColor
sh.DrawingObject.Border.Color = myColor
End Sub

Grüße, Ulrich

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.07.2018 09:45:32 Martin
NotSolved
Blau Form (z.b. ein gezeichnetes rechteck) färben, abhängig von Zellwert
 26.07.2018 10:04:32 Ulrich
Solved
26.07.2018 12:44:44 Gast46979
Solved