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

benutzerdefinierten Format

Forumthread: benutzerdefinierten Format

benutzerdefinierten Format
17.11.2005 18:50:09
jürgen
wie kann ich mit benutzerdefinierten Format folgende Schriftfarben festlegen
für 0 Grün für größer 0 Schwarz für u blau und für K rot
danke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: benutzerdefinierten Format
17.11.2005 20:22:25
kersten
Hallo Jürgen,
Wohl doch am einfachsten über Format, bedingte Formatierung, Zellwert ist, gleich, 0, Format, Schriftfarbe grün, hinzufügen danach das gleiche für k und u, ok. Größer 0 wird immer schwarz.
AW: benutzerdefinierten Format
17.11.2005 21:41:04
Ewald
Hallo Jürgen,
so etwa?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each Target In Target
Select Case Target.Value
Case "U"
Target.Font.ColorIndex = 55
Case "K"
Target.Font.ColorIndex = 3
Case "0"
Target.Font.ColorIndex = 50
Case Is > 0
Target.Font.ColorIndex = 0
End Select
Next
End Sub

Grüße
Ewald
Anzeige
AW: benutzerdefinierten Format
18.11.2005 13:11:21
Ewald
Hallo Jürgen,
kleine Korrektur

Private Sub Worksheet_Change(ByVal Target As Range)
For Each Target In Target
Select Case Target.Value
Case "U"
Target.Font.ColorIndex = 55
Case "K"
Target.Font.ColorIndex = 3
Case "0"
Target.Font.ColorIndex = 50
Case Is > 0
Target.Font.ColorIndex = 0
End Select
Next
End Sub

Grüsse
Ewald
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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