it-swarm.com.de

Farbzelle basierend auf Textwert

Eine Excel-Spalte enthält einen Textwert, der die Kategorie dieser Zeile darstellt.

Gibt es eine Möglichkeit, alle Zellen mit einem bestimmten Wert in einer eindeutigen Farbe zu formatieren, ohne manuell ein bedingtes Format für jeden Wert zu erstellen?

Beispiel: Wenn ich die Kategorien bedroom, bedroom, bathroom, kitchen, living room hätte, würde ich wollen, dass alle Zellen, die bedroom enthalten, eine bestimmte Farbe haben, bathroom eine andere Farbe usw.

23
Steven
  1. Kopieren Sie die zu formatierende Spalte in ein leeres Arbeitsblatt.
  2. Wählen Sie die Spalte aus und klicken Sie dann im Bereich "Datentools" auf der Registerkarte "Daten" des Menübands auf "Duplikate entfernen".
  3. Erstellen Sie rechts von Ihrer eindeutigen Liste von Werten oder Zeichenfolgen eine eindeutige Liste von Zahlen. Wenn Sie beispielsweise 6 Kategorien zum Färben haben, könnte die zweite Spalte nur 1 bis 6 sein. Dies ist Ihre Nachschlagetabelle.
  4. Verwenden Sie in einer neuen Spalte VLOOKUP, um die Textzeichenfolge der neuen Farbe zuzuordnen.
  5. Wenden Sie die bedingte Formatierung basierend auf der neuen numerischen Spalte an.
6
Eric

Die folgenden Screenshots stammen aus Excel 2010, sollten jedoch für 2007 identisch sein.

Wähle die Zelle aus und gehe zu Conditional Formatting | Highlight Cells Rules | Text that Contains

UPDATE: Um die bedingte Formatierung für das gesamte Arbeitsblatt anzuwenden, markieren Sie alle Zellen und wenden Sie dann die bedingte Formatierung an.

 enter image description here
(Zum Vergrößern auf das Bild klicken)

Jetzt wählen Sie einfach die gewünschte Formatierung.

 enter image description here

11
Nicu Zecheru

Von: http://www.mrexcel.com/forum/Excel-questions/861678-highlighting-rows-random-colors-if-there-duplicates-one-column.html#post4185738

Sub ColourDuplicates()
Dim Rng As Range
Dim Cel As Range
Dim Cel2 As Range
Dim Colour As Long




Set Rng = Worksheets("Sheet1").Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
Rng.Interior.ColorIndex = xlNone
Colour = 6
For Each Cel In Rng


If WorksheetFunction.CountIf(Rng, Cel) > 1 And Cel.Interior.ColorIndex = xlNone Then
Set Cel2 = Rng.Find(Cel.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False, SearchDirection:=xlNext)
    If Not Cel2 Is Nothing Then
        Firstaddress = Cel2.Address
        Do
        Cel.Interior.ColorIndex = Colour
        Cel2.Interior.ColorIndex = Colour
            Set Cel2 = Rng.FindNext(Cel2)

        Loop While Firstaddress <> Cel2.Address
    End If




Colour = Colour + 1


End If
Next


End Sub
2
Karmo

Die automatische Farbauswahl für die bedingte Formatierung ist keine Funktion von Microsoft Excel.

Sie können jedoch eine ganze Zeile basierend auf dem Wert einer Kategoriespalte einzeln einfärben.

  1. Erstellen Sie eine neue Formatierungsregel in Bedingte Formatierung.
  2. Verwenden Sie eine Formel, um zu bestimmen, welche Zellen formatiert werden sollen.
  3. Formel: =$B1="bedroom" (Angenommen, die Kategoriespalte ist B)
  4. Format festlegen (mit Füllfarbe)
  5. Regelformatierung auf alle Zellen anwenden
1
Steven