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

Forumthread: Doppelte Zahlenpaare markieren

Doppelte Zahlenpaare markieren
Rainer
Hallo,
ich habe folgendes Problem: Ich habe in einer Spalte Werte, die vereinzelt doppelt vorkommen. Über die bedingte Formatierung habe ich mir bislang doppelte Werte markiert. Nun möchte ich doppelte "Zahlenpaare" jeweils mit unterschiedlichen Farben markieren. Leider kann die Tabelle nicht sortiert werden. Kennt jeman eine Lösung?
Danke und viele Grüße
Rainer
Anzeige

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

Betreff
Benutzer
Anzeige
Doppler unterschiedlich einfärben
15.03.2011 16:32:48
WF
Hi,
die Formeln für die bedingten Formatierungen in A1 sind
für die erste Farbe:
=(ZÄHLENWENN(A$1:A$999;A1)=2)*ZÄHLENWENN(A$1:A1;A1)=1
für die zweite Farbe
hinten =2 (statt =1)
und runterkopieren
Salut WF
AW: Doppler unterschiedlich einfärben
15.03.2011 16:49:31
Rainer
Hallo,
vielen Dank für die Antwort. Ich habe mich wohl etwas missverständlich ausgedrückt. Es soll jeweils paarweise eingefärbt werden.
Beispiel: doppelte Zahl 12 --- beide Zahlen rot
doppelte Zahl 43 --- beide Zahlen gelb
dreifache Zahl 75 --- alle drei Zahlen grün u.s.w
Ist der Farbvorrat aufgebraucht dürfen die Farben erneut vergeben werden.
Danke
Viele Grüße
Rainer
Anzeige
vergiss es
15.03.2011 16:59:50
WF
"Ist der Farbvorrat aufgebraucht, dürfen die Farben erneut vergeben werden."
Diese software heißt nicht mehr "Excel" sondern "bedingte Formatierung bis zum kalten Erbrechen"
WF
AW: Doppelte Zahlenpaare markieren
15.03.2011 19:53:53
Reinhard
Hallo Rainer,
mit Hilfsspalte in T:
Option Explicit
Sub Doppelte()
Dim MaxZei As Long, Zei As Long, Farbe As Integer, Zei2 As Long
ActiveSheet.Cells.Interior.ColorIndex = xlNone
MaxZei = Cells(Rows.Count, 1).End(xlUp).Row
Farbe = 3
For Zei = 1 To MaxZei
If Application.CountIf(Columns(1), Cells(Zei, 1).Value) > 1 Then
If Cells(Zei, 20).Value  "x" Then
Cells(Zei, 1).Interior.ColorIndex = Farbe
Cells(Zei, 20).Value = "x"
For Zei2 = Zei + 1 To MaxZei
If Cells(Zei2, 1).Value = Cells(Zei, 1).Value Then
Cells(Zei2, 1).Interior.ColorIndex = Farbe
Cells(Zei2, 20).Value = "x"
End If
Next Zei2
Select Case Farbe
Case 27
Farbe = 33
Case 33
Farbe = 35
Case 53
Farbe = 55
Case 56
Farbe = 3
Case Else
Farbe = Farbe + 1
End Select
End If
End If
Next Zei
Columns(20).ClearContents
End Sub

Gruß
Reinhard
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Doppelte Zahlenpaare in Excel farblich markieren


Schritt-für-Schritt-Anleitung

Um doppelte Werte in Excel farblich zu markieren, insbesondere wenn es um Zahlenpaare geht, kannst du die bedingte Formatierung verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Daten auswählen: Markiere die Spalte, in der du die doppelten Zahlenpaare finden möchtest.
  2. Bedingte Formatierung öffnen: Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
  3. Formel zur Bestimmung der zu formatierenden Zellen verwenden: Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Die Formel eingeben: Nutze die folgende Formel für die erste Farbe:
    =(ZÄHLENWENN($A$1:$A$999;A1)=2)*ZÄHLENWENN($A$1:A1;A1)=1
  5. Format wählen: Klicke auf „Formatieren“ und wähle die gewünschte Farbe für die doppelten Werte.
  6. Regel für die zweite Farbe wiederholen: Erstelle eine neue Regel mit der gleichen Formel, ändere jedoch die letzte Zahl auf =2. Wähle eine andere Farbe.
  7. Anwenden: Klicke auf „OK“, um die Regeln anzuwenden.

Falls du die Farben für dreifache Werte markieren möchtest, passe die Formel entsprechend an.


Häufige Fehler und Lösungen

  • Fehler: Es werden nicht alle doppelten Werte markiert.

    • Lösung: Überprüfe die Formel und stelle sicher, dass die Zellreferenzen korrekt sind und die gesamte Datenreihe abgedeckt wird.
  • Fehler: Die Farben erscheinen nicht wie gewünscht.

    • Lösung: Stelle sicher, dass du die Regeln in der richtigen Reihenfolge anwendest und dass die Formatierung korrekt eingestellt ist.

Alternative Methoden

Falls du mit der bedingten Formatierung nicht die gewünschten Ergebnisse erzielst, kannst du auch VBA verwenden. Hier ist ein einfaches Skript:

Sub Doppelte()
    Dim MaxZei As Long, Zei As Long, Farbe As Integer, Zei2 As Long
    ActiveSheet.Cells.Interior.ColorIndex = xlNone
    MaxZei = Cells(Rows.Count, 1).End(xlUp).Row
    Farbe = 3
    For Zei = 1 To MaxZei
        If Application.CountIf(Columns(1), Cells(Zei, 1).Value) > 1 Then
            If Cells(Zei, 20).Value <> "x" Then
                Cells(Zei, 1).Interior.ColorIndex = Farbe
                Cells(Zei, 20).Value = "x"
                For Zei2 = Zei + 1 To MaxZei
                    If Cells(Zei2, 1).Value = Cells(Zei, 1).Value Then
                        Cells(Zei2, 1).Interior.ColorIndex = Farbe
                        Cells(Zei2, 20).Value = "x"
                    End If
                Next Zei2
                Farbe = Farbe + 1
            End If
        End If
    Next Zei
    Columns(20).ClearContents
End Sub

Dieser Code markiert doppelte Werte in verschiedenen Farben.


Praktische Beispiele

  • Beispiel 1: Du hast die Werte 12, 12, 43, 43, 75, 75, 75 in einer Spalte. Mit der oben genannten Methode kannst du die Paare 12 und 43 in Rot und Gelb und die dreifache Zahl 75 in Grün einfärben.

  • Beispiel 2: Wenn du die Werte 10, 10, 20, 20, 30 in einer Liste hast, kannst du sie entsprechend den Regeln in verschiedenen Farben markieren, um sie visuell hervorzuheben.


Tipps für Profis

  • Nutze die Formatierungsregeln, um verschiedene Zahlenpaare in unterschiedlichen Farben zu markieren, indem du die Regeln anpasst.
  • Stelle sicher, dass du mit Farbschemata arbeitest, die gut miteinander harmonieren, um die Lesbarkeit zu gewährleisten.
  • Überlege, die Zellenstile anzupassen, um die Sichtbarkeit der doppelten Werte weiter zu erhöhen.

FAQ: Häufige Fragen

1. Wie kann ich doppelte Werte in Excel farblich markieren?
Verwende die bedingte Formatierung, um die doppelten Werte in verschiedenen Farben hervorzuheben.

2. Kann ich auch dreifache Werte markieren?
Ja, passe die Formel in der bedingten Formatierung an, um auch dreifache Werte zu berücksichtigen.

3. Was mache ich, wenn die Farben nicht angezeigt werden?
Überprüfe die Zellreferenzen in deiner Formel und stelle sicher, dass die Daten korrekt ausgewählt sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige