Zellwert ist
gleich
=A1
Sub markieren()
Range("A2").Select
Do While ActiveCell ""
If Cells(ActiveCell.Row - 1, ActiveCell.Column) = Cells(ActiveCell.Row, ActiveCell.Column) Then _
Range(Cells(ActiveCell.Row - 1, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column)).Font.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub markieren()
Range("A2:A10000").Select
Do While ActiveCell ""
If Cells(ActiveCell.Row - 1, ActiveCell.Column) = Cells(ActiveCell.Row, ActiveCell.Column) Then _
_
Range(Cells(ActiveCell.Row - 1, ActiveCell.Column), Cells(ActiveCell.Row, ActiveCell.Column)). _
Font.ColorIndex = 3
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Um aufeinander folgende Doubletten in Excel farbig zu markieren, kannst du die folgende Methode mit der bedingten Formatierung nutzen:
Spalte auswählen: Markiere die Spalte, in der du die aufeinander folgenden Doubletten farbig markieren möchtest.
Bedingte Formatierung öffnen: Gehe zu Start > Bedingte Formatierung > Neue Regel.
Formel verwenden: Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“ aus.
Formel eingeben: Gib die folgende Formel ein:
=A2=A1Diese Formel vergleicht die Zelle in der aktuellen Zeile mit der Zelle darüber.
Format auswählen: Klicke auf „Formatieren“, wähle die gewünschte Farbe aus und bestätige.
Regel anwenden: Klicke auf „OK“, um die Regel anzuwenden.
Jetzt sollten alle aufeinander folgenden Werte in der ausgewählten Farbe hervorgehoben werden.
Fehler: Die Formatierung wird nicht angewendet.
Überprüfe, ob die Formel korrekt eingegeben wurde und die Reichweite der bedingten Formatierung die gesamte Spalte umfasst.
Fehler: Einige Doubletten werden nicht erfasst.
Dies könnte an unsichtbaren Zeichen oder Leerzeichen in den Zellen liegen. Stelle sicher, dass die Daten einheitlich formatiert sind.
Fehler: Unterschiedliche Farben für Doubletten.
Wenn du Excel doppelte Werte untereinander anzeigen und in verschiedenen Farben hervorheben möchtest, musst du mehrere Regeln für die bedingte Formatierung erstellen.
Falls du eine VBA-Lösung bevorzugst, kannst du das folgende Makro verwenden, um aufeinander folgende Doubletten farbig zu markieren:
Sub markieren()
Dim rng As Range
Set rng = Range("A2:A10000")
Dim cell As Range
For Each cell In rng
If cell.Value = cell.Offset(-1, 0).Value Then
cell.Interior.ColorIndex = 3 ' Rot
cell.Offset(-1, 0).Interior.ColorIndex = 3 ' Rot
End If
Next cell
End SubFüge dieses Makro in das VBA-Fenster ein und führe es aus, um die Doubletten farbig zu markieren.
Wenn du beispielsweise eine Liste mit Namen hast:
Martina
Ralf
Clemens
Clemens
Ralf
ClemensDie Formel =A2=A1 wird Clemens in der 4. Zeile farbig markieren, weil er direkt unter dem gleichen Namen steht.
ZÄHLENWENN-Funktion in Kombination mit bedingter Formatierung verwenden, um mehr Flexibilität zu erhalten.1. Wie kann ich unterschiedliche Farben für verschiedene Doubletten verwenden?
Du kannst mehrere Regeln in der bedingten Formatierung erstellen, jede mit einer anderen Formel, um die Farben zu variieren.
2. Was tun, wenn die bedingte Formatierung nicht funktioniert?
Überprüfe, ob die Daten in den Zellen wirklich identisch sind, inkl. Leerzeichen oder unsichtbaren Zeichen. Nutze die TRIM-Funktion, um überflüssige Leerzeichen zu entfernen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen