Wie kann man doppelte Werte in Excel in verschiedenen Farben hervorheben?

In Excel ist es einfach, doppelte Werte in einer Spalte mit einer Farbe mithilfe der bedingten Formatierung hervorzuheben. Es gibt jedoch Situationen, in denen Sie doppelte Werte in unterschiedlichen Farben hervorheben müssen, um sie leichter identifizieren zu können, wie im Screenshot gezeigt. Dieser Leitfaden erklärt, wie Sie diese Aufgabe mithilfe von VBA-Code ausführen können.
Doppelte Werte in einer Spalte mit verschiedenen Farben mithilfe von VBA-Code hervorheben
Doppelte Werte in einer Spalte mit verschiedenen Farben mithilfe von VBA-Code hervorheben
Es gibt keinen direkten Weg, dies in Excel zu erreichen, aber der folgende VBA-Code kann helfen. Befolgen Sie diese Schritte:
1. Wählen Sie die Spalte mit den Werten aus, in denen Sie doppelte Werte in verschiedenen Farben hervorheben möchten, und halten Sie dann die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Doppelte Werte in verschiedenen Farben hervorheben:
Sub ColorCompanyDuplicates()
'Updateby Extendoffice
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim xCellPre As Range
Dim xCIndex As Long
Dim xCol As Collection
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xCIndex = 2
Set xCol = New Collection
For Each xCell In xRg
On Error Resume Next
xCol.Add xCell, xCell.Text
If Err.Number = 457 Then
xCIndex = xCIndex + 1
Set xCellPre = xCol(xCell.Text)
If xCellPre.Interior.ColorIndex = xlNone Then xCellPre.Interior.ColorIndex = xCIndex
xCell.Interior.ColorIndex = xCellPre.Interior.ColorIndex
ElseIf Err.Number = 9 Then
MsgBox "Too many duplicate companies!", vbCritical, "Kutools for Excel"
Exit Sub
End If
On Error GoTo 0
Next
End Sub
3. Drücken Sie die F5-Taste, um diesen Code auszuführen. Ein Dialogfeld wird angezeigt, das Sie auffordert, den Datenbereich auszuwählen, um doppelte Werte hervorzuheben, siehe Screenshot:
4. Klicken Sie auf die Schaltfläche OK, und alle doppelten Werte werden in verschiedenen Farben hervorgehoben, siehe Screenshot:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.





- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins