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

Zellen mit gleichem Inhalt farblich markieren

Forumthread: Zellen mit gleichem Inhalt farblich markieren

Zellen mit gleichem Inhalt farblich markieren
10.12.2008 10:02:54
TomTom
Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit gleichem Inhalt farblich markieren
10.12.2008 10:56:00
Wenderhold
hi

Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub


greeze
e

Anzeige
AW: Zellen mit gleichem Inhalt farblich markieren
10.12.2008 11:05:46
TomTom
Hi,
Danke. geht das auch , dass beide betroffene Zellen farblich markiert werden ?
Danke Tom
AW: Zellen mit gleichem Inhalt farblich markieren
10.12.2008 11:15:00
Wenderhold
hi
jou geht auch

Public Sub mark_double()
Dim i As Integer, xx As Integer
Dim szCompare As String
For i = 5 To 500
szCompare = Sheets(1).Cells(i, 6).Value
For xx = i + 1 To 500
If Sheets(1).Cells(xx, 6).Value = szCompare Then
Sheets(1).Cells(xx, 6).Font.ColorIndex = 3
Sheets(1).Cells(i, 6).Font.ColorIndex = 3
End If
Next xx
Next i
End Sub


greeze
e

Anzeige
Besten dank :-) oT
10.12.2008 11:44:00
TomTom

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen mit gleichem Inhalt farblich markieren


Schritt-für-Schritt-Anleitung

Um in Excel alle Zellen mit gleichem Inhalt farblich zu markieren, kannst du die bedingte Formatierung oder VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden:

Methode 1: Bedingte Formatierung

  1. Markiere den Bereich: Wähle die Zellen aus, die du überprüfen möchtest (z.B. F5:F500).
  2. Bedingte Formatierung aktivieren: Gehe zu "Start" -> "Bedingte Formatierung" -> "Neue Regel".
  3. Regel erstellen: Wähle "Formel zur Ermittlung der zu formatierenden Zellen verwenden".
  4. Formel eingeben: Gib die folgende Formel ein:
    =ZÄHLENWENN($F$5:$F$500;F5)>1
  5. Format festlegen: Klicke auf "Formatieren" und wähle die gewünschte Schriftfarbe (z.B. Rot).
  6. Regel anwenden: Bestätige mit "OK", um die Regel zu speichern.

Methode 2: VBA

  1. Visual Basic Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Modul erstellen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei)" -> "Einfügen" -> "Modul".
  3. Code einfügen: Füge den folgenden Code ein, um Zellen mit gleichem Inhalt rot zu markieren:
    Public Sub mark_double()
       Dim i As Integer, xx As Integer
       Dim szCompare As String
       For i = 5 To 500
           szCompare = Sheets("Ausgabe").Cells(i, 6).Value
           For xx = i + 1 To 500
               If Sheets("Ausgabe").Cells(xx, 6).Value = szCompare Then
                   Sheets("Ausgabe").Cells(xx, 6).Font.ColorIndex = 3
                   Sheets("Ausgabe").Cells(i, 6).Font.ColorIndex = 3
               End If
           Next xx
       Next i
    End Sub
  4. Makro ausführen: Schließe den Editor und führe das Makro aus, um die Zellen farblich zu markieren.

Häufige Fehler und Lösungen

  • Fehler: Keine Veränderung sichtbar
    Lösung: Stelle sicher, dass die Zellen, die du markierst, die gleichen Werte haben (z.B. keine zusätzlichen Leerzeichen).

  • Fehler: VBA-Code funktioniert nicht
    Lösung: Überprüfe, ob du den richtigen Arbeitsblattnamen im Code verwendest (z.B. "Ausgabe").

  • Fehler: Bedingte Formatierung nicht anwendbar
    Lösung: Stelle sicher, dass du den richtigen Bereich ausgewählt hast und die Formel korrekt eingegeben wurde.


Alternative Methoden

Neben der bedingten Formatierung und dem VBA-Code gibt es auch andere Methoden, um Zellen mit gleichem Inhalt zu markieren:

  1. PivotTables: Nutze eine PivotTable, um Duplikate zu identifizieren und visuell hervorzuheben.
  2. Excel-Add-Ins: Es gibt diverse Excel-Add-Ins, die helfen können, doppelte Werte zu finden und farblich zu markieren.

Praktische Beispiele

Hier sind einige praktische Beispiele, die dir helfen können:

  • Beispiel 1: Wenn du in den Zellen F5:F10 die Werte 1, 2, 2, 3, 4, 4, 4 hast, werden die Zellen mit den Werten 2 und 4 rot markiert.

  • Beispiel 2: Du kannst auch ganze Zeilen farblich markieren, indem du die bedingte Formatierung auf die gesamte Zeile anwendest. Verwende dazu die Formel:

    =ZÄHLENWENN($F$5:$F$500;F5)>1

    und wähle den gesamten Zeilenbereich aus.


Tipps für Profis

  • Nutzung von Tastenkombinationen: Verwende STRG + A, um schnell einen gesamten Bereich auszuwählen.
  • Regelmäßige Überprüfung: Überprüfe regelmäßig deine Daten auf doppelte Einträge, um die Datenintegrität zu gewährleisten.
  • Formatierung anpassen: Experimentiere mit verschiedenen Schriftarten und -größen, um die Sichtbarkeit der markierten Zellen zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich alle Zellen mit gleichem Inhalt markieren?
Du kannst entweder die bedingte Formatierung oder ein VBA-Makro verwenden, um Zellen mit gleichem Inhalt farblich zu markieren.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in den meisten Excel-Versionen, einschließlich Excel 2010 und höher.

3. Kann ich die Hintergrundfarbe ändern?
Ja, in der bedingten Formatierung kannst du die Hintergrundfarbe anpassen, indem du die Formatierungsoptionen auswählst.

Anzeige
Anzeige