Optische Darstellung

Forumthread: Optische Darstellung
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Optische Darstellung

stefan

Hallo Zusammen,
habe vom Hajo einen Xls bekommen in der über Zahlen Ovale gefärbt werden.
http://hajo-excel.de/chCounter3/getfile.php?id=24
Wer könnte mir das für Werte umschreiben ?
Z.B. ok = grün
Termin = rot
offen = weiß
in Arbeit = gelb
Gruß
Stefan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Optische Darstellung

Daniel
AW: Optische Darstellung

Stefan

AW: Optische Darstellung

10.08.2010 05:34:00

Daniel

Hi
du musst den Teil mit Select Case so ändern:


Select Case Cells(ActiveSheet.Shapes(InI).BottomRightCell.Row, 4).Value
Case "Termin"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 10 ' rot
Case "in Arbeit"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 13 ' gelb
Case "OK"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 11 ' grün
Case "offen"
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = 2  ' weiss
Case Else
ActiveSheet.Shapes(InI).Fill.ForeColor.SchemeColor = xlNone
End Select

der Rest bleibt wie er ist.
Weitere Werte kannst du ja entsprechend ergänzen.
Gruß, Daniel
ps. nicht getestet. die Farbwerte für "offen" (weiss) und "alle anderen" (xlNone) können u.U. noch anders sein.

AW: Optische Darstellung

10.08.2010 10:57:59

Stefan

Dankeschöööön !
:-)
Stefan