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

Forumthread: Zellen mit gleichem Inhalt farblich markieren

Zellen mit gleichem Inhalt farblich markieren
10.12.2008 09: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 09: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 10: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 10: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 10:44:00
TomTom
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige