Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige