Wie hebt man doppelte Werte in Excel jeweils in verschiedenen Farben hervor?
In Excel ist das Hervorheben von Doppelte Werte in einer Spalte mit einer Farbe mithilfe von Bedingte Formatierung verwenden einfach. Es gibt jedoch Situationen, in denen Sie Duplikate zur leichteren Identifizierung in verschiedenen Farben hervorheben müssen, wie im Screenshot gezeigt. In dieser Anleitung wird erläutert, wie Sie diese Aufgabe mithilfe von VBA-Code bewältigen können.
Heben Sie Doppelte Werte in einer Spalte mithilfe von VBA-Code in verschiedenen Farben hervor
Heben Sie Doppelte Werte in einer Spalte mithilfe von VBA-Code in verschiedenen Farben hervor
In Excel gibt es hierfür keine direkte Möglichkeit, doch der folgende VBA-Code bietet eine praktische Lösung. Gehen Sie dazu wie folgt vor:
1. Markieren Sie die Spalte mit den Werten, in der Sie Duplikate mit verschiedenen Farben hervorheben möchten, und drücken Sie anschließend gleichzeitig ALT + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Hebt Doppelte Werte in verschiedenen Farben hervor:
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. Es erscheint ein Eingabefeld, 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):
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins