Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbe ändern

Forumthread: Farbe ändern

Farbe ändern
07.08.2006 17:44:14
selma
Hallo Excel-Experten,
habe folgendes Problem:
In Abhängigkeit eines Ergebnisses soll ein Label und eine Textbox in unter-
schiedlichen Farben am Bildschirm angezeigt werden.
Label314 und Textbox130 sollen in "grün" angezeigt werden, falls
in der Zeile c569 "Überschuss monatlich", andernfalls sollen Label314 und Textbox130 in rot auf dem Bildschirm angezeigt werden.
Wie geht sowas? Wer kann mir helfen?
Danke im Voraus
Viele Grüsse
selma
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe ändern
07.08.2006 17:54:19
Hugo
Hallo Selma,
wenn "Überschuss monatlich" durch manuelle Eingabe erfolgt, dann nach diesem Prinzip (Rechtsklick auf das Tabellenblatt, Code anzeigen):
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C569" Then
If Target.Value = "Überschuss monatlich" Then
Me.Label314.BackColor = RGB(0, 255, 0) 'Grün
Else
Me.Label314.BackColor = RGB(255, 0, 0) 'Rot
End If
End If
End Sub

Hugo
Anzeige
AW: Farbe ändern
07.08.2006 18:02:18
selma
Hallo Hugo,
danke für Deine Hilfe. Code funktioniert wunderbar.
... Nur das mit der Farbe... Das grün ist echt agressiv. Gibt es da unterschiedliche Farbcodes, z.b. dunkles grün, bzw. dunkles rot?
Viele Grüsse
selma
AW: Farbe ändern
07.08.2006 18:11:08
Hugo
Hallo Selma,
RGB steht für Rot Grün Blau - und die Werte variieren zwischen 0 und 255.
Da musst du halt mal ein bisschen mischen.
Hugo
Anzeige
AW: Farbe ändern
07.08.2006 18:22:04
selma
Hallo Hugo,
danke für Deine Hilfe, Ergebniss gefällt mir sehr gut.
Viele Grüsse
selma
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige