Office: Gleiche Inhalte abwechselnd farbig markieren

Hallo,

ich brauche Hilfe bei einem kleinen Problem. Ich habe in einer Spalte verschiedene Materialien nach der folgenden Struktur zu stehen.

1
1
1
2
2
3
4
4
4
...


Nun möchte ich immer abwechselnd die gleichen Inhalte mal farbig (z.B. 1 und 3), mal ohne Farbe (z.B. 2 u. 4) anzeigen. Da die Inhalte sich in der Tabelle immer mal ändern, sollte das ganze irgendwie über eine Formel gelöst werden.

Schön mal besten Dank!

 

Hallo TM!

Das geht über die bedingte Formatierung (Menü Format -> Bedingte Formatierung)

Angenommen, deine Liste startet in H1:
H1 anwählen und in der bedingten Formatierung:
"Formel ist:" und folgende Formel eingeben:

=RUNDEN(REST(SUMME(1/ZÄHLENWENN($H$1:H1;$H$1:H1));2);0)

Nun das gewünschte Format (z.B. gelb) festlegen ->OK.
Mit dem Formatpinsel kannst du nun das Format auf H2,H3,H4,usw. übertragen.

 

Besten Dank! Funktioniert Super :-)

 

Hallo Schatzi,

funktioniert bei mir leider nur bedingt. Ich habe - wie aufgeschrieben - in die bedingte Formatierung die Formel "=RUNDEN(REST(SUMME(1/ZÄHLENWENN($H$1:H1;$H$1:H1));2);0)" eingefügt, habe auch in H1 gestartet, aber wenn ich in Zelle H1 bis H4 die "1" eintrage und in Zelle H5 bis H8 die "2" ist die dritte "2" genauso gefärbt wie die Einsen. Wenn ich den Test weiterführe (siehe beigefügte Datei) läuft es dann bis zur Ziffer "9" gut und ab 10 wird es wieder durcheinander.

Wo ist der Fehler?

Vielen Dank für Eure Antworten

 

Moin Sabine,

löse das doch einfach mit VBA (der Code gehört in das Arbeitsblatt, Aufruf über Alt+F8). Es werden alle Zellen eingefärbt in den 1, 2 oder 3 steht.

Code:

Option Explicit

Sub AllesSoSchoenBuntHier()
Dim rng As Range

Cells.ClearFormats

For Each rng In ActiveSheet.UsedRange
   If IsNumeric(rng.Value) Then
        Select Case rng.Value
            Case 1
                rng.Interior.Color = RGB(255, 0, 0)
            Case 2
                rng.Interior.Colorindex = 27
            Case 3
                rng.Interior.Color = vbBlue
        End Select
    End If
Next
End Sub

Du hast hier die drei Syntax-Varianten für Farben als Beispiele.

Grüße

 

Moin!
Zunächst mal konnte ich Deinen Fehler nachvollziehen.
Ich konnte ihn durch Umstellung der Formel der bedingten Formatierung eliminieren:
=REST(RUNDEN(SUMME(1/ZÄHLENWENN($H$1:H1;$H$1:H1));0);2)

Gruß Ralf

 

und hier noch eine kleine Spielerei für die älteren Kollegen: Looks like Tabellierpapier

Code:

Sub Tabellierpapier()

Dim rng As Range, r As Integer, c As Integer

Cells.ClearFormats

c = UsedRange.Columns.Count
UsedRange.Cells.Interior.ColorIndex = 19

For Each rng In ActiveSheet.UsedRange
    r = rng.Row
    If r Mod 2 = 0 Then
        Range(Cells(r, 1), Cells(r, c)).Interior.Color = RGB(124, 205, 124)
    End If
Next
End Sub

Als nächstes bastle ich Lochkarten

 

Ich habe eine dezente Nachfrage, @d'r Bastler
Die hiesige Aufgabe besteht darin, bei jedem zweiten Wechsel eines Spaltenwertes diesen so lange zu markieren, bis der nächste Wert erscheint.
Berichtige mich:
Keiner Deiner beiden Codes wird dem gerecht.
Dein zweiter wird übrigens seit Excel 2007 durch ein Tabellenobjekt erschlagen [bzw. seit Urzeiten durch die Formel der bed.Form. =REST(ZEILE();2)]
Dies wurde hier aber nicht gefordert.

Gruß Ralf

 

...also bei mir funktioniert es jetzt sauber (mit =REST(RUNDEN(SUMME(1/ZÄHLENWENN($H$1:H1;$H$1:H1));0);2)).

Perfekt und vielen Dank an d'r Bastler

 

Moin Ralf, @RPP63_neu

Danke für den Hinweis! Ich hatte die Frage anders verstanden. Da bin ich mit meinem ersten Vorschlag wohl deutlich am Thema vorbeigerannt, ich bitte um Entschuldigung.

Zum zweiten: Wir sind schon so lange in den selben Foren aktiv, dass ich Dich als FormelEXLperten kennenlernen (und zugegeben zeitweise sogar neidisch bewundern) konnte, Du aber auch Gelegenheit hattest zu erkennen, dass meine Basteleien in VBA stattfinden. Wer nur einen Hammer im Werkzeugkasten hat, sieht in jedem Thema einen Nagel ...
Bedingte Malereien sind also nicht so mein Ding. Das Tabellierpapier war letztlich nur ein Versuch, ein wenig Schmunzeln in die XL-Welt zu schicken.

Schöne Grüße

 

VBA ist bei vielen Zeilen besser als bedF (vor allem dann, wenn mit exponenziell beanspruchter Formel ZÄHLENWENN). Es würde nur dann rechnen, wenn die Anzahl der Einträge sich ändert.

 

Ja, die exponentielle Seuche …
Ich bin mir aber recht sicher, dass die bedingte Formatierung nur im sichtbaren Bereich berechnet wird.
(bei jedem Scrollen neu)
Heißt in Standardauflösung grob 50 Zeilen.
Müsste ich tatsächlich mal mit 100.000 Zeilen ausprobieren.

Gruß Ralf

 

Ich habe es jetzt mal getestet.
H1: =GANZZAHL(SEQUENZ(100000;;;1/5))
Formel gegen Wert getauscht.
bedFor (angewendet auf $H$1:$H$100000)
=REST(RUNDEN(SUMME(1/ZÄHLENWENN($H$1:H1;$H$1:H1));0);2)

• die bedFor wird augenblicklich ausgeführt
• Scrollen ist kein Problem
• ABER: Ein simples Strg+↓ (von H1 aus) lässt Excel einfrieren!

→ Folglich hat Lupo1 Recht: Finger weg!