Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zellenformatierung in Abhängigkeit von Zellenwert

Zellenformatierung in Abhängigkeit von Zellenwert
23.03.2005 08:59:37
Zellenwert
Hallo,
ich möchte einen bestimmten Zellenbereich (Zeile) in Abhängigkeit eines Wertes der Zeile unterschiedlich farbig hinterlegen. Wenn der Wert z.B. "J" ist, dann soll die Hintergrundfarbe grün sein, wenn der Wert "N" ist rot und ansonsten weiß.
Wie mache ich das?
Danke
PeMoe

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

Betreff
Datum
Anwender
Anzeige
Format - Bedingte Formatierung
23.03.2005 09:04:10
=Peter=
Hallo Peter,
schau dir mal die Bedingte Formatierung an.
HTH
Gruss
Peter
AW: Format - Bedingte Formatierung
23.03.2005 09:16:53
Peter
Mit der bedingten Formatierung schaffe ich es nur eine bestimmte Zelle zu formatieren. Mache ich da etwas falsch?
AW: Format - Bedingte Formatierung
23.03.2005 09:43:38
=Peter=
Hallo Peter,
es funktioniert:
Tabelle1
 ABC
1J  
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
A11. / Formel ist =$A$1="J"Abc
A12. / Formel ist =$A$1="N"Abc
B11. / Formel ist =$A$1="J"Abc
B12. / Formel ist =$A$1="N"Abc
C11. / Formel ist =$A$1="J"Abc
C12. / Formel ist =$A$1="N"Abc
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Du musst lediglich das Format der Bedingten Formatierung von A1 mit dem 'Pinsel' auf die übrige Zellen übertragen.
HTH
Gruss
Peter
Anzeige
AW: Zellenformatierung in Abhängigkeit von Zellenw
23.03.2005 09:08:49
Zellenw
Servus!
Als VBA-Makro
Sub zellformat() enda = Worksheets(1).Range("A65536").End(xlUp).Row for i = 1 to enda Range("A" & i ).Select If ActiveCell.Value = "J" Then With Selection.Interior .ColorIndex = 4 .Pattern = xlSolid End With Else If ActiveCell.Value = "N" Then With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid End With Else With Selection.Interior .ColorIndex = 2 .Pattern = xlSolid End With End If Next i End Sub
So sollte es gehen (untested aber!).
Gruss

Tobias

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige