2-fach oder x-fach vorkommende Werte (Duplikate, Redundanzen) in einem ausgewählten Bereich hervorheben (VBA)

Sie wollen alle 2-fach vorkommende Werte hervorheben? Hierfür können Sie hierfür das folgende Makro einsetzen.

Mit Makro 2-fach vorkommende Werte hervorheben

Sub zweifache_Werte_hervorheben()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Selection
For Each Zelle In Bereich
If WorksheetFunction.CountIf(Bereich, Zelle.Value) = 2 Then
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub

Das Makro untersucht alle Zellinhalte im markierten Bereich, ob diese genau 2-mal im markierten Bereich vorkommen. Ist dies der Fall, dann werden diese Zellen, mit einem roten Zellhintergrund versehen. Folgendes ist beim Einsatz des Makros zu beachten:

• Hervorhebung ist statisch: Das Hervorheben mit einem roten Zellhintergrund ist statisch, d.h. ändern Sie die Werte im markierten Bereich, dann wird die farbliche Markierung nicht wie bei der bedingten Formatierung automatisch angepasst. Sie müssen in diesem Fall den roten Zellhintergrund wieder entfernen und dann das Makro erneut ausführen.
• Nur zusammenhängende Bereiche: Weiterhin ist zu beachten, dass das Makro nur bei einem zusammenhängenden Bereich funktioniert. Markieren Sie nicht zusammenhängende Zellen, indem Sie beim Markieren die Strg-Taste gedrückt halten, dann kommt es bei dem Ausführen von dem Makro zu einer Fehlermeldung.
• Einzelne Zelle: Haben Sie nur eine einzelne Zelle markiert, dann wird die Überprüfung nur auf die einzelne Zelle angewendet. In diesem Fall kann es kein Duplikat geben, da nur eine einzelne Zelle auf Duplikate (Redundanzen) untersucht wird.
• Roter Farbhintergrund: In unserem Beispiel werden die mehrfach vorkommenden Werte (Duplikate, Redundanzen) mit einem roten Zellhintergrund hervorgehoben. Dies wird im Makro durch die Eigenschaft ColorIndex = 3 erreicht. 3 steht hier als Farbcode für die Farbe Rot. Wollen Sie eine andere Farbe, an Stelle der Farbe rot verwenden, dann tauschen Sie den Farbcode 3 durch die Zahl Ihrer gewünschten Farbe einfach aus. Sie finden am Ende des Beitrags eine Farbpalette mit den entsprechenden Farbcodes.

So funktioniert’s:

In der folgenden Abbildung sehen Sie im Bereich A1:C8 eine Zahlenauflistung. Es sollen die Zellen hervorgehoben werden, deren Werte genau 2-mal im Bereich A1:C8 vorkommen.

Markieren Sie als ersten den Bereich mit den Daten.
Quicktipp: Wählen Sie eine Zelle im Bereich A1:C8 aus und drücken Sie dann die Tastenkombination Strg + A. Durch diese Tastenkombination wird der Bereich A1:C8 automatisch markiert.

Aktivieren Sie das Dialogfeld Makro, indem Sie die Tastenkombination Alt + F8 drücken. Wählen Sie hier das Makro zweifache_Werte_hervorheben aus und starten Sie das Makro, indem Sie auf die Schaltfläche Ausführen klicken.

Durch das Makro werden die 2-fach vorkommenden Werte im markierten Bereich durch einen roten Zellhintergrund hervorgehoben.

Mit Makro 3-fach oder x-fach vorkommende Werte hervorheben

Wenn Sie das Makro geringfügig abändern, dann können Sie hiermit auch alle Zellen hervorheben, welche Werte enthalten, die genau 3-mal, 4-mal, usw. im markierten Bereich vorkommen.

Beispiel: Es sollen alle Zellen hervorgehoben werden, deren Inhalten genau 3-mal im markierten Bereich vorkommen. Hierfür müssen Sie lediglich den Wert =2 in =3 im VBA-Code austauschen:

Sub dreifache_Werte_hervorheben()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Selection
For Each Zelle In Bereich
If WorksheetFunction.CountIf(Bereich, Zelle.Value) = 3 Then
Zelle.Interior.ColorIndex = 3
End If
Next Zelle
End Sub

Andere Farbe für Zellhintergrund einsetzen:

Wollen Sie eine andere Farbe als die Farbe Rot für das Hervorheben von Duplikaten verwenden, dann müssen Sie lediglich den Farbcode im Makro entsprechend anpassen. Wollen Sie einen grünen Zellhintergrund für Duplikate verwenden, dann verwenden Sie einfach an Stelle des Farbcodes 3 den Farbcode 10.

Sub dreifache_Werte_hervorheben()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Selection
For Each Zelle In Bereich
If WorksheetFunction.CountIf(Bereich, Zelle.Value) = 3 Then
Zelle.Interior.ColorIndex = 10£
End If
Next Zelle
End Sub

Weiterführende Links bzw. interessante Artikel:

• Einmal vorkommende Werte (Unikate, eindeutige Werte) in einem ausgewählten Bereich hervorheben (VBA)
• Mehrfach vorkommende Werte (Duplikate, Redundanzen) in einem ausgewählten Bereich hervorheben (VBA)
• Doppelte Einträge (Redundanzen) in einer Zeile automatisch verhindern
• Doppelte Einträge (Redundanzen) in einer Spalte automatisch verhindern