Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schwarz=1 &Weiß=0

Schwarz=1 &Weiß=0
11.10.2004 07:46:45
Vetal1977
Hallo,
habe noch eine Frage:
Wie kann ich automatisch die Werte mit "0" in weiße Farbe und die "1" in schwarze Farbe darstellen. Das soll aber so funktionieren: wenn ich auf "1" drucke, geht das Feld automatisch in Schwarz und so weiter.
Vielen Dank Voraus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schwarz=1 &Weiß=0
KlausK
Guten Morgen ?
Benutze die bedingte Formatierung.
Gruss
Klaus
AW: Schwarz=1 &Weiß=0
Nike
Hi,
so etwas in den Code des Tabellenblattes einfuegen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
For Each rngCell In Target
Select Case rngCell.Value
Case "0"
rngCell.Interior.ColorIndex = 2
Case "1"
rngCell.Interior.ColorIndex = 1
Case Else
rngCell.Interior.ColorIndex = xlColorIndexNone
End Select
Next
End Sub

Bye
Nike
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige