Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schwarz=1 &Weiß=0

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige