VBA · Administration

Dubletten in markierter Spalte hervorheben

Markiert doppelte Werte in der aktuell markierten Spalte per bedingter Formatierung.

VBA

Sub DublettenMarkieren()
    Dim rng As Range
    Set rng = Selection.Columns(1)
    rng.FormatConditions.Delete
    rng.FormatConditions.AddUniqueValues
    rng.FormatConditions(rng.FormatConditions.Count).DupeUnique = xlDuplicate
    rng.FormatConditions(rng.FormatConditions.Count).Interior.Color = RGB(255, 230, 180)
End Sub

Hinweis: Ändert vorhandene bedingte Formatierungen der Auswahl. Vorher prüfen bzw. sichern.

VBAExcelDublettenQualität

← Zur Codebibliothek Unterstützung anfragen