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 roomhätte, möchte ich, dass alle Zellen, bedroomdie eine bestimmte Farbe enthalten, bathroomeine andere Farbe haben usw.

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 VLOOKUPin einer neuen Spalte, um die Textzeichenfolge der neuen Farbe zuzuordnen.
5. Wenden Sie die bedingte Formatierung basierend auf der neuen numerischen Spalte an.

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

Wählen Sie die Zelle aus und gehen Sie 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.

^{(Zum Vergrößern auf das Bild klicken)}

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

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

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. Wenden Sie die Regelformatierung auf alle Zellen an