Gleiche Werte per VBA kategoriesieren
15.03.2017 14:13:13
Lesepeter
ich möchte die gleichen Werte in Spalte B finden und in Spalte C kategorisieren. Die Kategorie ist egal (man könnte z.B. hochzählen).
Am Ende ist das Ziel über die Kategorien zu filtern und dann alle doppelten Werte zu erhalten und nicht, wie vorher die gleichen Werte manuell zu finden.
Hier die Beispiel-Datei: https://www.herber.de/bbs/user/112206.xlsx
Bisher habe ich die doppelten Werte einfach "rot" markiert und dafür dieses Makro genommen:
Sub Doppelt_Red()
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(lngZeile, 1) = Cells(lngZeile + 1, 1) Then
With Range(Cells(lngZeile, 1), Cells(lngZeile + 1, 1))
.Font.Bold = True
.Font.ColorIndex = 3
End With
End If
Next
Application.ScreenUpdating = True
End Sub
Ich hoffe Ihr könnt mir weiterhelfen danke dafür schon mal im Voraus!